Zitat von
Schwedenbitter:
Leider weiß ich aber nicht, wie ich...
Am Einfachsten ist da wohl eine CriticalSection.
Delphi-Quellcode:
// ab D2006/TDE
// einen Generic-Stack vom Typ String erzeugen
var MyQueue: TGenStack<String>;
MyQueue := TGenStack<String>.Create;
// String hinten anhängen
MyQueue.Push(S);
// ältesten String vorne rausholen
While MyQueue.UnShift(S) do
{***** oder *****}
// String vorne einzufügen
MyQueue.Shift(S);
// ältesten String hingen rausholen
While MyQueue.Pop(S) do