delphi FDMemTable1建立缓存表模糊查询

FDMemTable1.Close;

with FDMemTable1 do

begin

with FieldDefs do

begin

Clear;

Add('Brand', ftInteger);

Add('Name', ftString, 20);

Add('ModelYear', ftInteger);

Add('Price', ftCurrency);

end;

Active := True;

AppendRecord([1, 'A4', 2012, 40000]);

AppendRecord([1, 'A6', 2012, 50000]);

AppendRecord([1, '赵', 2012, 70000]);

AppendRecord([2, '3', 2012, 40000]);

AppendRecord([2, '5', 2012, 50000]);

AppendRecord([2, 'X5', 2012, 70000]);

AppendRecord([3, 'C', 2012, 40000]);

AppendRecord([3, 'E', 2012, 50000]);

AppendRecord([3, 'G', 2012, 70000]);

end;

FDMemTable1.Filtered := False;

FDMemTable1.Filter := 'Name LIKE ' + QuotedStr('%' + '赵' + '%');

FDMemTable1.Filtered := True;

end;

推荐分享