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;
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;