我在DELPHI5中可以用到VarArrayCreate,但是到了DELPHI6却不能了,为什么?请各位指教指教!!!!
我的原码:
Var A:variant;
begin
A:=VarArrayCreate([0,1],varVariant);
A[0]:='';
A[1]:='';
if ADODplanstate.Locate('planid;detailid',A,[locaseinsensitive]) then
begin
......
end;
end;
不知道为什么在DELPHI6中却出错,请各位指点!
我的原码:
Var A:variant;
begin
A:=VarArrayCreate([0,1],varVariant);
A[0]:='';
A[1]:='';
if ADODplanstate.Locate('planid;detailid',A,[locaseinsensitive]) then
begin
......
end;
end;
不知道为什么在DELPHI6中却出错,请各位指点!
if adotable1.Locate('uname;pwd',vararrayof([edit1.Text,edit2.Text]),[])=true then
begin
application.MessageBox('通过验证!','提示',mb_ok);
adotable1.Active:=false;
self.Close;
end
else
begin
application.MessageBox('未通过验证!','提示',mb_ok);
edit1.Text:='';
edit2.Text:='';
edit1.SetFocus;
end;