Как передать параметр?

[Иллидан]

В цикле стоит Application.processmessages. Программа может прерываться при нажатии одной из 4 button. Мне необходимо передать параметры, в процедуру, которая обрабатывает нажатие button1. Можно ли это осуществить?

[Ozerich]

Создай глобальные переменые

[Иллидан]

Создай глобальные переменые

Этот способ не очень подходит. Нет других вариантов?

[Ozerich]

можно значение хранить и обновлять ну например в реестре.
А ваще для таких целей используют глобальные переменые

[Иллидан]

Ок, мне просто важна скорость работы. Такой вопрос еще, если можно: обращение локальным и глобальным переменным а также к переменным Public и Private происходят с одинаковой скоротью?

[Ozerich]

Так проверь по способу который я тебе приводил в другом твоем вопросе

[rpy3uH]

Сообщение от Иллидан

Такой вопрос еще, если можно: обращение локальным и глобальным переменным а также к переменным Public и Private происходят с одинаковой скоротью?

без разницы! всё происходит с одинаковой скоростью будь переменная в классе, локальная переменная, глобальная, в другом юните. всё одинаково. за исключением случаев типа

    procedure SetXXX(const Value: integer);
    function GetXXX:integer;

    property XXX:integer read GetXXX write SetXXX;

в данном случае время обращения к свойству полностью зависит от функций GetXXX, SetXXX.

[GN_]

Сообщение от Иллидан

В цикле стоит Application.processmessages. Программа может прерываться при нажатии одной из 4 button. Мне необходимо передать параметры, в процедуру, которая обрабатывает нажатие button1. Можно ли это осуществить?

Если я правильно понял вопрос, то попробуй так сделать:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure ButtonClick(Sender: TObject; par: string = '');
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Процедура которая обрабатывает нажатие button1 и других кнопок
procedure TForm1.ButtonClick(Sender: TObject; par: string);
begin
  if par <> '' then
    ShowMessage('Перадача параметра - ' + par)
  else
    ShowMessage('Без параметра' );
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.ButtonClick(Self);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  st: string;
begin
  st := 'Hello World!';
  Form1.ButtonClick(Self, st);
end;

end.

[Иллидан]

У меня цикл оформлен вот так:

while i<10000 do begin
application.ProcessMessages;
 if form1.tag=1 then
  while form1.tag<>0 do begin
  application.ProcessMessages;//
  end;
i:=i+1;
...............
end;