Question

delphi中 form1要通过验证Edit1数值才能调用form2 下面的代码一运行什么都没有 要怎么修改 或着添加什么

procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure tForm1.Button1Click(Sender: TObject);
begin
if Edit1.text = '123456' then
begin
Form2.Show;
Form1.Hide;
end
else if Edit1.text <> '123456' then
end;
end. Form1.Hide;
end
else if Edit1.text <> '123456' then
end;
end.

Answer 1

1. 后边的 Form1.Hide; end else if Edit1.text <> '123456' thenend;end. 是多余的
2. 有个函数可以变通地解决: if StrToIntDef(Edit1.text,-9999)=-9999 then 不是数字型（整型）

Answer 2

可能是form2没有实例，需要在创建FORM1时实例化form2，也就是双击form1窗口会弹出一个formcreate相应函数需要在里面填写，form2:=tform2.create(self)；没有实例的声明只是个空指针而已，form2根本就没有创建，当然什么也不会显示。。。还有我感觉你逻辑混乱，怎么就那么多end,还有既然用了else,为什么还要if,而且还正好是两个互补的条件。。。