Hallo,
Ich suche einen Code eine Stringliste möglichst schnell zu mischen.
Ich habe folgenden Code, der auch funktioniert, nur leider sehr langsam ist.
Delphi-Quellcode:
procedure Shuffle(List: TStrings);
var
i: Integer;
begin
Randomize;
List.BeginUpdate;
try
for i := 0 to Pred(List.Count) do
List.Exchange(i, Random(List.Count));
finally
List.EndUpdate;
end;
end;
Kann man das auch schneller machen?
Danke