Определение глобальной переменной с типом Потококового объекта(Thread)

[AndreyK]

Привет Всем! Подскажите пожалуйста как определить глобальную переменную с типом потока? Два модуля связаны м/у собой.

Сам поток:

unit Unit2;
interface
uses
Classes {$IFDEF MSWINDOWS} , Windows {$ENDIF};
type
Thread = class(TThread)
protected
procedure Execute; override;
end;
implementation
uses Unit1;
procedure Thread.Execute;
begin
NameThreadForDebugging('Thread');
end;
end.



Главная форма

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Potok:Thread;<--вот эта переменная не определяется.
implementation
uses Unit2;
{$R *.dfm}
end.

[GunSmoker]

Ничего, что в Unit1 ты используешь Thread до подключения Unit2?

[AndreyK]

Дело в том что когда я эту переменную объявляю в процедуре то все работает.
Я использую Delphi 2010


Главная форма

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
var Potok:Thread;<- если сюда ставишь то сразу подчёркивает красной линией.(И программа уже не компилица указывает что на этой строчке ошибка).
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var Potok:Thread;<- а тут норм объяв-ся и поток норм. запускается.
begin
Potok := Thread.Create(true);
Potok.Priority := tpLowest;
Potok.FreeOnTerminate := true;
Potok.Start;
end;

end.


Сам поток:

unit Unit2;
interface
uses
Classes {$IFDEF MSWINDOWS} , Windows {$ENDIF};
type
Thread = class(TThread)
protected
procedure Execute; override;
end;
implementation
uses Unit1;
procedure Thread.Execute;
begin
NameThreadForDebugging('Thread');
end;
end.

[veniside]

> объявляю в процедуре то все работает

процедура тут не при чём. Прочитайте ещё раз внимательно, что вам написали выше.

Пока не будет подключен uses Unit2; компилятор понятия не имеет, что где-то там у вас объявлен тип с загадочным именем Thread.

[AndreyK]

Главная форма
...
implementation
uses Unit2;<- он подключен.
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var Potok:Thread;<- а тут норм объяв-ся и поток норм. запускается.
begin
Potok := Thread.Create(true);
Potok.Priority := tpLowest;
Potok.FreeOnTerminate := true;
Potok.Start;
end;

end.

[veniside]

> он подключен

для вас слова до и после имеют смысл? а для компилятора имеют.

[AndreyK]

Все! Спасибо огромное)) veniside и GunSmoker.
Сделал так.

Главная форма
...
implementation
uses Unit2;
var Potok:Thread;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Potok := Thread.Create(true);
Potok.Priority := tpLowest;
Potok.FreeOnTerminate := true;
Potok.Start;
end;

end.

[veniside]

Наконец-то )

Кстати, после вызова Potok.Start; смысл в глобальной переменной var Potok:Thread; стремится к нулю, т.к. поток в лобой неизвестный момент времени может освободиться (у нас ведь FreeOnTerminate := true; ), и обращение к Potok в лучшем случае вызовет AV.