Thema: Delphi Threads Organisieren ?

Einzelnen Beitrag anzeigen

mjustin

Registriert seit: 14. Apr 2008
3.006 Beiträge
 
Delphi 2009 Professional
 
#11

AW: Threads Organisieren ?

  Alt 25. Sep 2011, 09:36
Ansonsten kann man das auch schön mit dem Visitor-Pattern lösen.

Delphi-Quellcode:
type
  TMyThread = class( TThread )
    private
      FList : TObjectList;
    public
      procedure AddToList( AList : TObjectList );
      procedure RemoveFromList( AList : TObjectList );
      destructor Destroy; override;
  end;

procedure TMyThread.AddToList( AList : TObjectList );
begin
  AList.Add( Self );
end;

procedure TMyThread.RemoveFromList( AList : TObjectList );
begin
  AList.Remove( Self );
end;

destructor Destroy;
begin
  RemoveFromList( FList );
  inherited;
end;
FList wird nie verwendet ausser im Destruktor - daher auch mein Mißverständnis. Wozu dient FList?
Michael Justin
  Mit Zitat antworten Zitat