Handle count erhöht sich permanent

[himitsu]

Zitat:

Der ThreadTask wird ausserhalb erstellt

Und wo ist dann die fCriticalSection, beim Durchlaufen und vorallem Löschen der Items?

Wie gesagt, wenn du im Constructor und Execute deinen Code mal auskommentierst, bleiben dann die Handle gleich?




Bezüglich deinem komischen OnTerminate-Konstrukt:

Delphi-Quellcode:

protected
  procedure DoTerminate; override;

procedure TThreadTask.DoTerminate;
begin
  inherited;
  ...
end;

// bzw., wenn der Code im Hauptthread ausgeführt werden soll (OnTerminate wird ja auch synchronisiert)

procedure TThreadTask.DoTerminate;
begin
  inherited;
  Synchronize(procedure
    begin
      ...
    end);
end;