一个简单的delphi程序，为什么老是出错？各位请帮帮我

procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
begin
     i:=0;
     if edit1.Text <> 'delphi' then
     begin
       ShowMessage('输入错误');
       i:=i+1;
     end;
     if i=3 then
     begin
       ShowMessage('错误达到3次，退出');
       exit;
     end;

我要的是，错误次数累加（变量 i ），达到三次就退出，请问这个要怎么实现，

我的这个程序，能运行，但是 i 就是不累加 ,  哎 ， 不知道哪出问题

哎，发现delphi和VB真得不一样，

答案：很简单的原因 因为I是局部变量 当这个事件开始的时候变量生效 当事件结束的时候变量就销毁了，下次激活事件的时候又重新赋值给I=0了   你得申明全局变量  明白？

其他：我的也是 在Inte易做图ce区域的var处声明i:integer;

比如:
var
  Form1:TForm;
  I:integer;   //声明在Form1下面,然后在Button1处直接累加就行了 就是i变量的问题。
每次btn1Click的时候i都会等于0，没有累加的机会。 你把i设置成全局变量，不要在click事件里面每次进入都设置为0；改在formshow之类的事件里面。 var
  Form1: TForm1;
  i:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if i<3 then
  begin
    if edit1.text<>'delphi' then
    begin
      i:=i+1;
      showmessage('wrong');
    end
    else
      i:=0;
  end
  else
    showmessage('超过3次');
end;
end.
变量要声明为全局变量 不能再这让     i:=0;
因为每次循环 i 都会被清零  用for 循环 要将if edit1.Text <> 'delphi' 改成while循环，代码如下：
procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
begin
     i:=0;
     while(edit1.Text <> 'delphi') do begin
         ShowMessage('输入错误');
          i:=i+1;
          if i=3 then
          begin
               ShowMessage('错误达到3次，退出');
               exit;
          end;
     end;
end;

上一个：delphi聊天程序中为什么只能后上线的人能给先上线的人发消息
下一个：delphi 求一个程序，获取文件的创建时间（不是修改时间），然后根据它们的创建时间删除某个时间之前的文件