Die Mühe bei der TList hättest du dir sparen können, wenn du einfach
TThreadList benutzen würdest
BTW: Du solltest immer mit einem Schutzblock arbeiten:
Delphi-Quellcode:
While not(FCS.TryEnter) do InfiniteLoop;
try
... tue irgendetwas
finally
FSC.Leave;
end;
und auch das ist eigentlich völlig überflüssig, weil du hiermit genau das gleiche erreichst wie mit
Delphi-Quellcode:
FCS.Enter; // Wartet so lange, bis die CS betreten werden kann
try
... tue irgendetwas
finally
FCS.Leave;
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)