Delphi-Quellcode:
while(FCountRD > 0) do Sleep(1);
while(FCountWR > wrcnt) do Sleep(1)
Zwei Endlosschleifen? Oder wie funktioniert das?
Nutze doch den TMulitReadExclusiveWriteSyncronizer (oder wie der genau hieß).
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.