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