Zitat von
Schwedenbitter:
Aber ich hätte dann ein Problem, wenn meine Ereignisbehandlung exakt zwischen dem End; und dem Laeuft:=False; steht, während weitere Einträge hinzukommen.
Du kannst es ja mal so oder ähnlich probieren:
Delphi-Quellcode:
While not done Do
Begin
S:=Strings[0];
If S = ...
// Verarbeiten der Einträge
EnterCriticalSection (ms);
Delete(0);
done := count = 0;
if done then Laeuft := false;
LeaveCriticalSection (ms);
End;
Gruss Reinhard