Question

delphi代码 查错

procedure TForm1.Button1Click(Sender: TObject);

var

s1,s2 : string
begin
s1:=edit1.Text ;
s2:=edit2.Text;
if(s1='abc')and(S2='123456') THEN
form2.show
else
begin
edit2.clear ;
edit1.SetFocus ;
showmessage('ddddddddd')
end ;

end;

end ;

end.

Answer 1

有两处问题：
1、每条语句末尾一般情况下要加分号表示结束
2、begin和end要配套

procedure TForm1.Button1Click(Sender: TObject);

var

s1,s2 : string; // 这里掉了个分号
begin
s1:=edit1.Text ;
s2:=edit2.Text;
if(s1='abc')and(S2='123456') THEN
form2.show
else
begin
edit2.clear ;
edit1.SetFocus ;
showmessage('ddddddddd')
end ;

end;

// end ; 去掉这一行

end.

Answer 2

多了个end;