Delphi-Quellcode:
for i:=0 to random(Q.Count) do
Q.Push(Q.Pop);
LogForm.APPEND('Tmaze.RandomTQueueItem: Zufälliges element:'+inttostr(i)+' aus:'+inttostr(Q.Count),0);
Variable i ist nach der Schleife undeffiniert. (Delphi ist nicht halt C
)
[EDIT]
Und warscheinlich wegen Compiler - Optimierung läuft i von Random(Q.Count)
DOWNTO 0 .