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

procedure TMyFieldInfo.SetVariables(d: TDataset);

var

  value : String;

begin

//设置变量值

  if AnsiUpperCase(FilterValue) = 'NULL' then //如果FilterValue为空，则退出

    exit;

  if FieldType = ftString then //如果字段类型为字符串型，则

  begin

    if CaseSensitive then  //如果大小写敏感

      case MatchType of  //匹配类型

        fdMatchStart, fdMatchAny :  //起始部分匹配或任意位置匹配

          value := FilterValue;

        fdMatchEnd : //结束部分匹配

          value := '%' + FilterValue;