Zitat von jaenicke:

Zitat von Mavarik:

Waitfor nicht nötig da im Thread Destructor schon vorhanden!

Wenn man es denn in der Reihenfolge aufruft wie Sir Rufo geschrieben hat, funktioniert das auch, ja.

Mach ich ja!

Zitat von Mavarik:

Zitat von jaenicke:

Zitat von Mavarik:

Waitfor nicht nötig da im Thread Destructor schon vorhanden!

Wenn man es denn in der Reihenfolge aufruft wie Sir Rufo geschrieben hat, funktioniert das auch, ja.

Mach ich ja!

... jetzt

Das TThread.TerminatedSet ist irgendwann hinzugekommen und wird direkt am Ende von TThread.Terminate aufgerufen.

Umbauen kannst du das, wenn du die TThread.Terminate-Methode überschreibst (die ist natürlich nicht virtual , wär ja sonst zu einfach).

Zitat von Mavarik:

markieren

Delphi-Quellcode:

Destructor TMyThread.destroy;
begin
  Inherited;
  FMyEvent.Free; // NACH INHERITED!!!!!! Stimmt hab ich auch gefunden!
end;

s.o.

wie gesagt...

Zitat von Mavarik:

Zitat von Mavarik:

markieren

Delphi-Quellcode:

Destructor TMyThread.destroy;
begin
  Inherited;
  FMyEvent.Free; // NACH INHERITED!!!!!! Stimmt hab ich auch gefunden!
end;

s.o.

wie gesagt...

Ja, was denn?

Was passiert denn, wenn Terminate aufgerufen wird? Wird dann der Event gesetzt?

Wenn nicht, dann wartet dein Thread bis zum Ende aller Tage.

Probiers mal so:

markieren

Code:

destructor TMyThread.Destroy;
begin
 Terminate;
 FMyEvent.SetEvent;
 WaitFor;
 FMyEvent.free;
 inherited;
end;

Zitat von Sir Rufo:

Ja, was denn?

FMyEvent.Free; // NACH INHERITED!!!!!! Stimmt hab ich auch gefunden!

Zitat von Sir Rufo:

Was passiert denn, wenn Terminate aufgerufen wird? Wird dann der Event gesetzt?

Wenn nicht, dann wartet dein Thread bis zum Ende aller Tage.

War doch schon alles erledigt und nicht die Frage...

1. Version aus der Frage...

markieren

Delphi-Quellcode:

Destructor TMyThread.destroy;
begin
   Terminate;
   MyEvent.SetEvent;
   MyEvent.Free; // Gut oder schlecht???
   Inherited;
end;

Finale Version...

markieren

Delphi-Quellcode:

Destructor TMyThread.destroy;
begin
   Terminate;
   FMyEvent.SetEvent; // Mit F für Sir Rufo
   Inherited;
   FMyEvent.Free; // Nach Ingerited! Hatte ich schon gefunden
end;

Alles Prima läuft!

Mavarik


@Peter666 Waitfor ist schon im free... FMyEvent.Free muss dann nur noch nach dem Inherited gemacht werden.