locate可以这样用吗?

Question

procedure Tformpassword.Button1Click(Sender: TObject);
var
  newpass,checkpass : string;
begin
// usertext:=formuser.edtusername.text;
// passwordtext:=formuser.edtpassword.text;
  newpass:=edtnewpassword.text;
  checkpass:=edtcheck.text;
    if newpass=checkpass then
      begin
      with formuser.tblpassword do
        begin
        open;
locate('name;password',vararrayof([formuser.edtusername.text,formuser.edtpassword.text]),[locaseinsensitive]);
        edit;//调换一下位置
setfields(formuser.edtpassword.text,newpass);
        end;
      end
    else
      begin
      showmessage('密码不一致');
    end;

Answer 1

还有一个问题procedure Tformpassword.Button1Click(Sender: TObject);
var
  newpass,checkpass : string;
begin
// usertext:=formuser.edtusername.text;
// passwordtext:=formuser.edtpassword.text;
   newpass:=edtnewpassword.text;
   checkpass:=edtcheck.text;
   if newpass=checkpass then
   begin
     with formuser.tblpassword do
     begin
       open;
       locate('name;password',vararrayof([formuser.edtusername.text,formuser.edtpassword.text]),[locaseinsensitive]);
       edit;//调换一下位置
       setfields(formuser.edtpassword.text,newpass);
       post;//保存
     end;
   end
   else
   begin
     showmessage('密码不一致');
   end;  
end;