13.05.2019, 08:24
|
Прохожий
|
|
Регистрация: 18.01.2018
Сообщения: 30
Версия Delphi: 7, XE5
Репутация: 10
|
|
Цитата:
Сообщение от 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;
|
Все работает СПАСИБО.
|