[SpectraL]

Это пример из книги "Библия Delphi" -> глава 17 Потоки.
Объясните пожалуйста, почему, в дополнительном потоке (Thread Object), главный модуль приложения (Main, с главной формой) нельзя объявить в разделе interface?

unit MyThread;

interface

uses
Classes, SysUtils;

type
TCountObj = class(TThread)
private
index: integer;
procedure UpdateLabel;
protected
procedure Execute; override;
end;

implementation

uses Main;

procedure TCountObj.Execute;
begin
index:=1;
//Запускаем бесконечный счетчик
while index > 0 do
begin
Synchronize(UpdateLabel);
Inc(index);
if index > 100000 then index:=0;
//Если поток остановлен, то выйти,
if terminated then exit;
end;
end;

procedure TCountObj.UpdateLabel;
begin
Form3.Label1.Caption:=IntToStr(Index);
end;

end.

[AlexSku]

Кто сказал, что нельзя?

Возможно, нет надобности его употребления в этой секции (он нужен только во второй).

[SpectraL]

Если модуль Main объявить в разделе interface и запустить программу (в Delphi) появляется ошибка со следующим сообщением:
[DCC Fatal Error] MyThread.pas(6): F2047 Circular unit reference to 'Main'

[AlexSku]

Да, это обычная ошибка.
1) Вам нужно, чтобы ссылка на Main была вверху? Для чего?
2) Возможно, что вы в Main (или в модуле, который вызывает MyThread) ссылку на MyThread тоже объявили вверху? Почему не в секции implementation?
Для начала поставьте задачу, что вам нужно от ссылок на модули, а потом её решайте (ссылок нет, или они внизу; или в одном модуле вверху, а в другом внизу; или делаете третий модуль, а на него ссылаетесь из двух других)

[NumLock]

вообще-то если в окне "Messages" щелкнуть мышкой на сообщение об ошибке компилятора и нажать F1, то Delphi покажет страницу из файла справки по этой ошибке и предложит способ ее решения.

[SpectraL]

В общем, как я понял, запрещена ситуация при которой два модуля объявляют друг друга в разделе interface. Тогда у меня следующий вопрос: чем отличается "раздел uses в разделе implementation" от "раздела uses в разделе interface"?

[AlexSku]

Тем, что для модулей из раздела implementation не делается проверка на перекрёстные ссылки.
Хотя, может, вас интересует что-то другое. Попробую догадаться. Есть правила:
1) то, что в разделе interface (типы, константы, функции...), будет видно и другим модулям, а то, что в разделе implementation, этого другие модули не увидят.
2) если что-то используется (переменная, константа, функция...), то она предварительно должна быть описана. Напр., в вашем примере ссылка на Form3 предполагает, что эта переменная где-то описана (возможно, в Main:

Код:

var Form3: TForm3;

)

[SpectraL]

Спасибо! Объявляю тему закрытой!