|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите разобраться с процедурами
Вот допустим у меня есть 10 кнопок и при нажатии любой кнопки будет обрабатываться одна или несколько переменных... после запустится процедура и завершит обработку...
Возможно ли через эту же процедуру сделать и вывод данные через Label? Или вывод возможен только через событие? Процедура: Код:
Procedure p1; begin inc(x); label1.caption:=label1.caption+IntToStr(x);; end; Пример программы: Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1,label1: TForm1; x:integer; implementation {$R *.dfm} Procedure p1; begin inc(x); label1.caption:=label1.caption+IntToStr(x);; end; procedure TForm1.Button1Click(Sender: TObject); begin p1; end; end. |
#2
|
||||
|
||||
Код:
Form1.Label1.Caption:=''; Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Van-89 (27.11.2012)
|
#3
|
|||
|
|||
Спасибо за оперативный ответ всё работает)))
|