Zitat von Sir Rufo:

Ansonsten kann man das auch schön mit dem Visitor-Pattern lösen.

zusammenfalten · markieren

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?

Also ich würde die Thread-Liste einfach threadsicher implementieren und damit das Risiko eliminieren, das irgendwer später mal unkontrolliert auf die Liste zugreift.