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

冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。系统会自动删除debug和release目录

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