August 29, 2008 11:39pm pdt

1. ziolko 326,855
2. ciuly 225,985
3. TheRealL... 148,008
4. MerijnB 144,827
5. Geert_Gr... 132,301
6. SteveBay 122,088
7. developm... 116,878
8. rfwoolf 102,158
9. ThievingSix 96,336
10. Johnjces 81,552
11. rllibby 64,270
12. dinilud 49,668
13. CodedK 46,191
14. kretzsch... 41,841
15. atul_par... 41,525
16. EddieShip... 36,154
17. mikelittlew... 36,100
18. Steven-F... 31,043
19. mokule 29,652
20. Workshop... 29,099
21. wd123 24,878
22. aikimark 23,847
23. bernani 19,191
24. calinutz 19,008
25. RickJ 17,874

1. kretzsch... 1,396,754
2. rllibby 1,301,830
3. ciuly 1,033,302
4. Madshi 662,000
5. Slick812 645,363
6. ziolko 631,710
7. geobul 628,081
8. EddieShip... 622,489
9. mnasman 600,905
10. Workshop... 557,765
11. inthe 514,714
12. TheRealL... 497,455
13. Ferruccio68 441,154
14. mokule 423,405
15. DragonSl... 394,371
16. MerijnB 393,230
17. mikelittlew... 389,144
18. Epsylon 324,729
19. esoftbg 316,932
20. Lee_Nover 297,111
21. rwilson 293,576
22. BlackTigerX 277,597
23. Ivanov_G 272,786
24. robert_m... 256,993
25. calinutz 248,991

05.14.2008 at 11:32AM PDT, ID: 23402607

	[x] Attachment Details

TThread.Terminated becomes invisible when TThread class is in separate Unit

Asked by SteveFarndon2000 in Delphi Programming, Delphi Programming Language

Tags: Delphi, TThread

Hello All,

There must be a simple solution to this but I can't see it.

If you declare a TThread class in the same module as your TForm code then the compiler recognises its protected "Terminated" property.
If you move the TThread class to a separate .pas module then Delphi complains with "Cannot access protected symbol TThread.Terminated".

Why?

I can get around the problem by simply declaring a public property called "Terminated" in the second case (see the commented-out line of code in the example) but this, I suspect, will have negative side-effects somewhere down the line.
So how do I avoid a "get around"? Is there some compiler switch that I'm missing?

Thanks in advance.

Stephen

(Environment is Delphi2006, WinXP SP2 }Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:

           
           
             unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,unit2;
type
  TAt2 = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;
 
  TTextA = class(TObject)
  t1 : TAt;   // <-- from unit2.pas
  t2  : TAt2; // <-- locally declared TThread class
  constructor create();
  destructor destroy();
  procedure checkThread();
  end;
 
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
constructor TTextA.create();
begin
inherited;
end;
 
destructor TTextA.destroy();
begin
end;
 
procedure TTextA.checkThread;
begin
if (t2.terminated) then exit;
if (t1.terminated) then exit;
end;
 
procedure TAt2.Execute;
begin
  { Place thread code here }
end;
 
end.
 
//------------------------------------------------------------------------------
..AND THE SECOND MODULE...
unit Unit2;
interface
uses
  Classes;
 
type
  TAt = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
   //property Terminated;  <-- uncomment this an compiles OK
  end;
 
implementation
 
procedure TAt.Execute;
begin
  { Place thread code here }
end;
 
end.

           
         

Keywords: TThread.Terminated becomes invisibl…

	Title
1	TThread object still assigned after thre…
2	TThread
3	TThread - OnTerminate...
4	Problem with TThread
5	TThreads and TQuery
6	Memory Leak in TThreads

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

TThread.Terminated becomes invisible when TThread class is in separate Unit

Asked by SteveFarndon2000 in Delphi Programming, Delphi Programming Language

Tags: Delphi, TThread

About this solution