展开全部
locate主要用于查找数据，但是它的查找速度没有finding和going定位快。下面我举一个例子。
procedure TForm1.LocateBtnClick(Sender:
TObject);
begin
Start;
if ClientDataSet1.Locate('Field1,Field2..',VarArrayOf['value1,value2..'], []) then
begin
Done;
StatusBar1.Panels[3].Text :=
'Match located at record ' +
IntToStr(ClientDataSet1.RecNo);
end
else
begin
Done;
StatusBar1.Panels[3].Text := 'No match located';
end;
end;
XP和补丁。硬件驱动有问题如果所安装
procedure TForm1.LocateBtnClick(Sender:
TObject);
begin
Start;
if ClientDataSet1.Locate('Field1,Field2..',VarArrayOf['value1,value2..'], []) then
begin
Done;
StatusBar1.Panels[3].Text :=
'Match located at record ' +
IntToStr(ClientDataSet1.RecNo);
end
else
begin
Done;
StatusBar1.Panels[3].Text := 'No match located';
end;
end;
XP和补丁。硬件驱动有问题如果所安装
追问
你这个答非所问
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
金山毒霸
2024-10-31 广告
大部分系统错误，是因为某些DLL文件丢失造成的，比如未安装DirectX9或DirectX 9.0组件已损坏、缺少Visual C ++库、未安装.net库。解决方法如下：一、 手动解决方法1、先确定电脑操作系统是多少位的，现在的电脑一般都...
点击进入详情页
本回答由金山毒霸提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
