Проблема с выведением чисел в ListBox

[_-Re@l-_]

Ну вот

var
     i : Integer = 1;

implementation

/// ....

procedure TForm1.Timer1Timer(Sender : TObject);
begin
        if i = 10 then Timer1.Enabled:=False;
        ListBox1.Items.Add(IntToStr(i));
        Inc(i);
end;

[BlackFishSQL]

Вот весь код у меня как часы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if i=10 then timer1.Enabled:=false; 
listbox1.Items.Add(inttostr(i));
inc(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

end.

[_-Re@l-_]

BlackFishSQL
Ну зачем i инициализировать в OnCreate? Delphi ведь и при объявлении позволяет

i:integer = 1;

[xrenomx]

BlackFishSQL спасибо,заработало,пойду разбирать
Вроде плюсанул...

[BlackFishSQL]

_-Re@l-_
ну каждый по своему решает! я начинающий, по этому строго не судите!(

[_-Re@l-_]

BlackFishSQL, ну просто незачем лишний метод вызывать, лишь трата времени на его вызов.

[xrenomx]

Не пойму,почему это работает если только переменная i глобальная?

[Pein95]

_-Re@l-_ ет скорее не к нему притензии а комне) я посоветовал присваивать еденицу в oncreate)

[ZuBy]

потому что если i будет в процедуре (локальная), то после выхода их процедуры i автоматически обнулится, а глобальная такого эффекта не допустит

[BlackFishSQL]

ZuBy
прав, после выхода из процедуры ини просто уничтожаются, а глобальные уничтожаются с закрытием программы.