|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Генерация чисел 1, 2, 3 и тд.
Доброго Всем!
Помогите с программкой. Суть такова: При нажатии по кнопке "Button" генерируется число от 1 и далее в последовательном порядке (т.е. 1, 2, 3, 4, 5 и т.д.) и выводится число в Edit Подскажите как это можно сделать. |
#2
|
|||
|
|||
Так?
Код:
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; |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Vansha (13.05.2019)
|
#3
|
|||
|
|||
Цитата:
Все работает СПАСИБО. |