Thema: Delphi Threads Organisieren ?

Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#6

AW: Threads Organisieren ?

  Alt 24. Sep 2011, 00:55
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;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat