Prüfen ob TStrings gerade geupdated wird

[Reinhard Kern]

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