密码验证的问题，帮忙看一下啊，。。。谢谢了

Question

procedure TForm1.FormCreate(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.clear;
sql.add('select admin from admin');
open;
while not (adoquery1.eof) do
begin
flatcombobox1.items.add(adoquery1.fields[0].asstring);
adoquery1.next;
end;
adoquery1.Close;
end;
end;procedure TForm1.FlatComboBox1Change(Sender: TObject);
var
yh,pass:string;
begin
yh:=flatcombobox1.Text;
with adoquery1 do
begin
close;
sql.clear;
sql.Add('select pass from admin where admin='''+yh+'''');
open;
pass:=adoquery1.Fields[0].asstring;
flatedit1.Text:=pass;
end;
end;procedure TForm1.FlatSpeedButton1Click(Sender: TObject);
var
pass:string;
begin
if flatedit1.Text=pass then
begin
form3.show;
end
else
showmessage('密码错误');
end;
不管我密码有没输入对都是提示错误。

Answer 1

哦
第二段代码中
flatedit1.Text:=pass;这个不要
是我想看看pass的值才写上去的

Answer 2

pass只是一个局部的变量，FlatSpeedButton1Click中pass永远为空，将
var
pass:string;放在implementation下面，并将每个函数内pass的定义删去。