[Vansha]

Доброго Всем!
Помогите с программкой.
Суть такова:
При нажатии по кнопке "Button" генерируется число от 1 и далее в последовательном порядке (т.е. 1, 2, 3, 4, 5 и т.д.) и выводится число в Edit
Подскажите как это можно сделать.

[lmikle]

Так?

Код:

type
  TForm1 = class(TForm)
    ...
    procedure Button1Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
  private
    FNumber : Integer;
  end;
...
procedure TForm1.FormCreate(Sender : TObject);
begin
  FNumber := 0;
end;

procedure TForm1.Button1Click(Sender : TObject);
begin
  Inc(FNumber);
  Edit1.Text := IntToStr(FNumber);
end;

[Vansha]

Сообщение от lmikle

Так?

Код:

type
  TForm1 = class(TForm)
    ...
    procedure Button1Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
  private
    FNumber : Integer;
  end;
...
procedure TForm1.FormCreate(Sender : TObject);
begin
  FNumber := 0;
end;

procedure TForm1.Button1Click(Sender : TObject);
begin
  Inc(FNumber);
  Edit1.Text := IntToStr(FNumber);
end;

Все работает СПАСИБО.