在线等待....

Question

有二个窗体，密码对了，第一个窗体才消失，密码错了，第一个窗体按原样显示
procedure TForm1.Button1Click(Sender: TObject);
var str:integer;
begin
  if str='11' then
  form2.show;
  form1.close            //怎么错了
  else
  howmessage('wrong')end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var str:integer;
begin
  if str='11' then begin
    form2.show;
    form1.close
  end
  else
    howmessage('wrong')
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var str:integer;
begin
  if str='11' then begin
    form2.show;
    form1.close
  end
  else
    howmessage('wrong')
end;

Answer 3

错误：[Error] Unit1.pas(33): Incompatible types: 'String' and 'Integer'
怎么会这样，还有按button1时老弹出wrong,不能显示form2

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var str:integer;  //既然是interger,怎能使用""号呢？粗心大意！
begin
  if str='11' then begin //错误在此
    form2.show;
    form1.close
  end
  else
    howmessage('wrong')
end;

Answer 5

Incompatible types: 'String' and 'Integer'
数据类型不匹配

Answer 6

改成
str:string
下面加begin 
end

Answer 7

呵呵，代码怎么写得那么不规范呀？？
都没有begin end了还没发现。

Answer 8

哈哈哈哈哈哈，这种错误真的很简单，！！！！
虽然我学delphi才几天。