Hi,
du hast zwar keine Frage gestellt, aber ich antworte einfach trotzdem. Die Zahlen würde ich in einer TList bereitstellen:
Delphi-Quellcode:
begin
// ...
with Numbers do
begin
// dimension
Count := NUMCOUNT;
// initialize
for i := 0 to Pred(Count) do
Items[i] := Pointer(i);
// shuffle
for i := 1 to Pred(Count) do
// Exchange(Pred(i), Pred(i + Random(Count - i))); // nonsense
Exchange(i, Random(i));
end;
// ...
end;
Grüße vom marabu