TEvent.free im Thread Destructor?

[Mavarik]

Zitat:

Zitat von jaenicke (Beitrag 1259659)

Zitat:

Zitat von Mavarik (Beitrag 1259644)

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!

[Sir Rufo]

Zitat:

Zitat von Mavarik (Beitrag 1259665)

Zitat:

Zitat von jaenicke (Beitrag 1259659)

Zitat:

Zitat von Mavarik (Beitrag 1259644)

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

Delphi-Quellcode:

virtual

, wär ja sonst zu einfach).

[Mavarik]

Zitat:

Zitat von Mavarik (Beitrag 1259643)

Delphi-Quellcode:

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

s.o.

wie gesagt...

[Sir Rufo]

Zitat:

Zitat von Mavarik (Beitrag 1259678)

Zitat:

Zitat von Mavarik (Beitrag 1259643)

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.

[Peter666]

Probiers mal so:

Code:

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

[Mavarik]

Zitat:

Zitat von Sir Rufo (Beitrag 1259682)

Ja, was denn?

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

Zitat:

Zitat von Sir Rufo (Beitrag 1259682)

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...

Delphi-Quellcode:

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

Finale Version...

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.