Использование глобальной переменной в потоке

[Шульц]

Как можно использовать глобальную переменную формы в потоке. Если можно расскажите поподробней, или направте ан статьи, только понятные. И примеры, очень надо примеры

[FaTaL]

Пропиши переменную в Public и используй её в потоке.

[notHaker]

В потоке? имеется ввиду Thread? Если да, то там имеются подводные камни, иначе солидарен с FaTaL

[Stilet]

Примеры? Их есть у меня:
Работа с формой из потока
Вот главная форма

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses unit2;
var t:TMyThread;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 t:=TMyThread.Create(true);
 t.f:=self;// в поток передается переменная
 t.FreeOnTerminate:=true;
 t.Resume;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 t.Terminate;
end;

end.

Вот реализация потока:

unit Unit2;

interface

uses   unit1, SysUtils,
  Classes;

type
  TMyThread = class(TThread)
  public
   f:TForm1;
  private
    { Private declarations }
  protected
  procedure UpdateCaption;
    procedure Execute; override;
  end;

implementation

{ Important: Methods and properties of objects in VCL or CLX can only be used
  in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,


{ TMyThread }

    procedure TMyThread.UpdateCaption;
    begin
      F.Caption := TimeToStr(now);
    end;
procedure TMyThread.Execute;
begin

 while not self.Terminated do
  Synchronize(UpdateCaption);
end;

end.

Выделенное - пример изменения потоком некого свойства формы, с синхронизацией
В данном случае тупо выводится время в заголовок

[Шульц]

notHaker, да я имел в виду Thread.
Stilet, а если вместо свойства формы нужно просто переменную? То ее тоже просто в public обьявить?

[notHaker]

Шульц, да. но она глобальна и к ней будут имет доступ и проц и поток. Поэтому надо синхронизировать работу проца и потока с этой переменной. Здесь это наверное нужно сделать просто из-за правила хорошего тона, тк очень мала вероятность одновренного чтения процом (или потоком) этой переменной и записи потоком. Ну а вообще если там будет массив или что нибудь исчо, то это нужно делать обязательно.

[Шульц]

То есть я обьявлю ее в Public потока, как например S:String, и просто в Var формы, и будет работать? А не будет ли считатся что это разные переменные?

[notHaker]

Да блин. Вот глобальная переменная...

interface

uses
...

var
  MyGlobalVar: Integer;

implementation
...

[IliaIT]

Тоже долго пытался понять как правильно сделать данный момент, в итоге создал глобальную переменную как показал notHaker, но для записи в неё из потока создавал отдельную процедуру (mySin) и вызывал в нужном месте потока с помощью Synchronize(mySin);

[JTG]

тк очень мала вероятность одновренного чтения процом (или потоком) этой переменной и записи потоком

Если есть отличная от нуля вероятность того, что её попытаются изменить 2 потока одновременно - они это рано или поздно сделают (закон Мура: если что-то плохое может произойти, оно обязательно произойдёт ) и может получится AV на ровном месте. Для таких случаев предусмотрен механизм критических секций, в делфи он завёрнут в клвсс TCriticalSection

  uses ..., SyncObjs;

  CS: TCriticalSection;
  CS := TCriticalSection.Create;
   
  ...

  //Везде, где происходит обращение к переменной
  CS.Enter;
  //обязательно Try...Finally!
  try
    <всё, что находится в критической секции, до выхода из неё недоступно другим потокам> 
  finally
    CS.Leave;
  end;

  ...

  CS.Free;

Метод Synchronize, собственно, делает то же самое, но там ещё event'ы, сигналы главному потоку... т.е. заточен он именно под общение с VCL и достаточно тормозной, так что использовать его для потокобезопасного доступа к переменным - как стрелять из пушки по воробьям