代码错在哪?(李维的delphi5.x系统篇P2-20页)(50分)

Y

ysc69

Unregistered / Unconfirmed
GUEST, unregistred user!
在主窗体中加入一EDIT组件,在组件的onchange中输入下列代码:
Procedure TForm1.Edit1Change(Sender:TObject);
var
lStart,lEnd :Integer;
begin
lStart := GetTickCount;
DataModule1.ClientDataSet1.Locate('name',VarArrayOf([Edit1.Text]),[loCaseInsentive,
loPartialKey]);
//问题出在这,提示找不到loCaseInsebntive和loPartialKey。这两个是什么?
lEnd := GetTickCount;
edittime.Text := FloatToStr((lEnd-lStart) / 1000.0) + '秒';
end;
 
它问你是不是要区分大小写,是不是匹配一部分,把光标移到那里,按一下F1,看看帮助里说它定义在哪个单元,
uses 哪个单元就行了,如果找不到的话,就这样就行了:
DataModule1.ClientDataSet1.Locate('name',Edit1.Text,[]);
 
同意楼上,他是把LOCATE函数的那个参数所有的值给出来了,你可以自己看看HELP就知道
怎么用了
 
多人接受答案了。
 
说实在的,kkyy心得值得记住。
 
顶部