一个TABLE1.locate的问题

Question

如题 先谢了
procedure TForm1.Button1Click(Sender: TObject);
begin
 with datafrom.Table1 do
  begin
  open;
    if locate('姓名;密码',vararrayof(['edit1.text','edit2.text'])=true then
    begin
    Form2.Show;
    end
    else
    begin
    showmessage('姓名或密码不正确');
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit1.SetFocus;
    end;
  end;
会报错 ：[Error] Unit41216.pas(43): Not enough actual parameters
[Fatal Error] Project41216.dpr(7): Could not compile used unit 'Unit41216.pas'

Answer 1

if locate('姓名;密码',vararrayof([edit1.text,edit2.text]),[])=true then

Answer 2

看看LOCATE的函数定义吧：
function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; virtual;