看看这个语法错在哪了。很简单的。我自己糊涂了。(10分)

  • 主题发起人 主题发起人 sohuandsina
  • 开始时间 开始时间
S

sohuandsina

Unregistered / Unconfirmed
GUEST, unregistred user!
验证登陆数据库的:
[red]
procedure TForm2.SpeedButton1Click(Sender: TObject);
var
results:variant;
begin
results:=table1.lookup('name',edit1.Text,'password');
if edit2.Text=results then
form2.Close;
form1.Show
else
showmessage('密码错误。')
end; [/red]

调试的时候说else是错的。
 
if edit2.Text=results then
begin
^^^^^^
form2.Close;
form1.Show
end
^^^^
else
showmessage('密码错误。')
end; [/red]

 
else前面少了个end
 
f edit2.Text=results then
begin
form2.Close;
form1.Show
end
else
showmessage(....)
 
老大,以后细心点呀!
少了begin...end怎么可以呀!
同上@!
 
多人接受答案了。
 
后退
顶部