Thead beenden bringt Fehler, was mache ich falsch?

[Jackie1983]

Servus,

wenn ich einen Thread erstelle sieht das so aus

Delphi-Quellcode:

  result := TMyThread.Create(id);
  //...
  fThreads.Add(result);

die execute

Delphi-Quellcode:

begin
  inherited;
  while not terminated do begin
    mach_was;
    sleep(5000);
  end;
end;

löschen

Delphi-Quellcode:

var
  myThread : TmyThread;
  i : integer;
begin
  for i:=0 to fThreads.Count-1 do
  begin
    myThread := TmyThread(fThreads.Items[i]);
    myThread.FreeOnTerminate := true;
    myThread.Terminate;
  end;
  fThreads.clear; //<- fehler

und bei clear kommt der fehler
".... Das Handle ist ungültig(6). Process wurde angehalten..."

Was mache ich falsch?

Mfg

[sirius]

Evtl. ein waitfor einbauen.

[Blup]

Was ist fThreads?

Wenn es sich zum Beispiel um eine TObjectList handelt, dann ist diese normalerweise für die Freigabe der enthaltenen Objekte verantwortlich. Also entweder OwnsObjects auf False setzen oder die Threads vor dem Löschen mit Remove aus der Liste entfernen.

[oki]

Hi,

Dein Clear sorgt wohl dafür, dass alle Objekte gelöscht und freigegeben werden. Ich unterstell mal, du hast eine ObjectList. Ubergebe beim Construktor für OwnsObjects False, dann versucht die ObjectList beim Löschen der Items nicht die Objekte frei zu geben. Mit WaitFor hat das nichts zu tun.

gruß oki

edit: oh sorry, hab den Thread von Blup nicht ordentlich gelesen. :oops:

[Jackie1983]

Zitat:

Was ist fThreads?

ok hätte noch dazu schreiben sollen das es eine TObjectList ist.
Danke.