Wenn die Liste den Thread nicht "Owned" und dieser sich durch FreeOnTerminate beendet und ich anschließend Liste.Count aufrufe. Ist der Thread dann dort noch zu finden, oder verschwindet die Referenz dann auch atomatisch aus der Liste ?

Ich meinte das so: die Liste "besitzt" den Thread nicht, dann kannst du ihn gefahrlos aus der Liste löschen. Nachdem das getan ist, terminiert der Thread und wird wegen FreeOnTerminate aufgeräumt.

Alternativ könntest du bei den selben Einstellungen in onTerminate den Thread aus der Liste löschen.
Ist irgendwie gefühlt sauberer.

Funktioniert Danke

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;

Zitat von Sir Rufo:

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

Wenn gleichzeitig ein anderer Thread die Liste durchläuft, während terminierende Threads sich daraus entfernen, kann es zu amüsanten Ergebnissen kommen

Zitat von mjustin:

Zitat von Sir Rufo:

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

Wenn gleichzeitig ein anderer Thread die Liste durchläuft, während terminierende Threads sich daraus entfernen, kann es zu amüsanten Ergebnissen kommen

Das Destroy wird aber nicht mehr im ThreadKontext ausgeführt

Zitat von Sir Rufo:

Zitat von mjustin:

Zitat von Sir Rufo:

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

Wenn gleichzeitig ein anderer Thread die Liste durchläuft, während terminierende Threads sich daraus entfernen, kann es zu amüsanten Ergebnissen kommen

Das Destroy wird aber nicht mehr im ThreadKontext ausgeführt

Macht es denn einen Unterschied, in welchem Kontext das Destroy ausgeführt wird? Effektiv ist es eine Veränderung der Liste, während andere Threads auf diese zugreifen können, z.B. über die Elemente iterieren.

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.