Zahlen 1-4 mischen

[Skyrunner2]

ah danke, aber habe das problem schon ander gelöst und funktioniert perfekt...


wenn jemand eine funktion haben will um eine TQueue Aufzumischen und ein Zufälliges element auszspucken haben will:

Delphi-Quellcode:

function RandomListItem(Q:TQueue):Pointer;
var i:integer;
    BackupQ:TQueue;
begin
LogForm.APPEND('########Tmaze.PrimGenerator.RandomListItem########');
   BackupQ:=TQueue.Create;
   randomize;
   for i:=0 to random(Q.Count) do
        BackupQ.Push(Q.Pop);
   LogForm.APPEND('.RandomListItem ## 1st loop');
   for i:=0 to BackupQ.Count-1 do
        Q.Push(BackupQ.pop);
   Backupq.Free;
   RandomListItem:=Q.Pop;
end;

hehe ohne Backupq.Free;geht memory nutzung ganz ganz schnell hoch!