本文整理自网络,侵删。
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;
相关阅读 >>
Delphi 用cxgrid把数据导出到excel时乱码的解决办法
Delphi xe 启动关闭start page 页错误提示
Delphi richedit的实现msn / qq 中的动画表情
更多相关阅读请进入《Delphi》频道 >>