Zitat von
marabu:
Hallo Marc,
wenn die Einträge in deiner ListBox schon vorgegeben sind dann hilft dir vielleicht dieser Code:
Delphi-Quellcode:
// Shuffle(ListBox.Items);
procedure Shuffle(sl: TStrings);
var
i: integer;
begin
for i := 1 to sl.Count - 1 do
sl.Exchange(Pred(i), Pred(i + Random(sl.Count - i)));
end;
Grüße vom marabu
Hey danke, das funzt prima...