实例——使用locate方法定位记录.txt

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

procedure TForm1.LocatePositionBtnClick(Sender: TObject)；
begin
YaoPin.open；
with  YaoPin do
Locate('品名；厂牌',VarArrayOf(['冰箱', '科龙集团']),
       [loPartialKey])；
End；