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

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

fdMatchStart, fdMatchAny :

value := AnsiUpperCase(FilterValue);