[Chuwis720]

Блин, я уже задолбался с TThread'ами Вроде бы все делаю по инструкции - так нет, выдает, зараза, ошибку!Вот исходник, подскажите, что не так-то? Может кто нибудь нормально объяснить, как работать с потоками (хотя бы просто через поток вывести сообщение 'ololo')? А то голова скоро взорвется...

[mak-karpov]

Если на сайте mapper720.ru было непонятно:
В поток:

Код:

unit Unit2; 

interface 

uses 
   Classes, Unit1; 

type 
TMyThread = class(TThread) 
  private 
     { Private declarations } 
   protected 
     procedure Execute; override; 
   end; 

implementation 

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

       Synchronize(UpdateCaption); 

   and UpdateCaption could look like, 

     procedure TThread.UpdateCaption; 
     begin 
       Form1.Caption := 'Updated in a thread'; 
     end; } 

{ TThread } 

procedure TMyThread.Execute; 
begin 
  { Place thread code here } 
end; 
end.

добавляещь процедуру:

Код:

unit Unit2; 

interface 

uses 
   Classes, Unit1, Dialogs; 

type 
TMyThread = class(TThread) 
  private 
     { Private declarations } 
   protected 
     procedure Execute; override;
     procedure OLOLOProc; 
   end; 

implementation 

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

       Synchronize(UpdateCaption); 

   and UpdateCaption could look like, 

     procedure TThread.UpdateCaption; 
     begin 
       Form1.Caption := 'Updated in a thread'; 
     end; } 

{ TThread } 

procedure TMyThread.Execute; 
begin 
  { Place thread code here } 
end; 
end.

Жмешь CTRL+SHIFT+C
Дельфи генерирует :

Код:

unit Unit2; 

interface 

uses 
   Classes, Unit1, Dialogs; 

type 
TMyThread = class(TThread) 
  private 
     { Private declarations } 
   protected 
     procedure Execute; override;
     procedure OLOLOProc; 
   end; 

implementation 

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

       Synchronize(UpdateCaption); 

   and UpdateCaption could look like, 

     procedure TThread.UpdateCaption; 
     begin 
       Form1.Caption := 'Updated in a thread'; 
     end; } 

{ TThread } 

procedure TMyThread.Execute; 
begin 

end; 

procedure TMyThread.OLOLOProc;
begin

end;
end.

В процедуру OLOLOProc пишешь что нужно.
В процедуру Execute пишешь:

Код:

unit Unit2; 

interface 

uses 
   Classes, Unit1, Dialogs; 

type 
TMyThread = class(TThread) 
  private 
     { Private declarations } 
   protected 
     procedure Execute; override;
     procedure OLOLOProc;
   end; 

implementation 

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

       Synchronize(UpdateCaption); 

   and UpdateCaption could look like, 

     procedure TThread.UpdateCaption; 
     begin 
       Form1.Caption := 'Updated in a thread'; 
     end; } 

{ TThread } 

procedure TMyThread.Execute; 
begin 
  Synchronize(OLOLOProc);
end; 

procedure TMyThread.OLOLOProc;
begin
  ShowMessage('OLOLO!');
end;
end.

И в нужном месте запускаешь:

Код:

uses ...., Unit2;
...
var My : TMyThread;
...
My := TMyThread.Create(false);

И все работает!

[mak-karpov]

Сообщение от Chuwis720

А то голова скоро взорвется...

Ты еще не знаешь, в каких местах (кода) взрывалась голова у меня.......

[Chuwis720]

Сделал. Пишет следующее: Circular unit reference to 'unit1'
И подсвечивает красным:
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2;

[mak-karpov]

Сообщение от Chuwis720

Сделал. Пишет следующее: Circular unit reference to 'unit1'
И подсвечивает красным:
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2;

Тогда в потоке:

Код:

uses ..., Unit1, ...;

Unit1 убери, и поставь его в

Код:

implementation
uses Unit1;