Question

一个简单的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真得不一样，

Answer 1

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

Answer 2

就是i变量的问题。
每次btn1Click的时候i都会等于0，没有累加的机会。

Answer 3

你把i设置成全局变量，不要在click事件里面每次进入都设置为0；改在formshow之类的事件里面。

Answer 4

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.
变量要声明为全局变量

Answer 5

不能再这让 i:=0;
因为每次循环 i 都会被清零 用for 循环

Answer 6

要将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;