[Van-89]

Вот допустим у меня есть 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.

[NumLock]

Код:

Form1.Label1.Caption:='';

либо p1 сделать методом формы.

[Van-89]

Спасибо за оперативный ответ всё работает)))