通用查询组件设计（续四）

设置字段变量

procedure TMyFieldInfo.SetVariables(d: TDataset);

var

  value : String;

begin

//设置变量值

  if AnsiUpperCase(FilterValue) = 'NULL' then

    exit;

  if FieldType = ftString then

  begin

    if CaseSensitive then

      case MatchType of

        fdMatchStart, fdMatchAny :

          value := FilterValue;

        fdMatchEnd :

          value := '%' + FilterValue;

        fdMatchExact :

          value := FilterValue;

      end

    else

      case MatchType of