Forum: Object-Pascal / Delphi-Language
Delphi
by kcx,
18. Mär 2008
Ist gut 200 ms schneller, also nicht wirklich viel. :wink:
So ist es zwar etwas umständlich, aber dafür sehr schnell:
procedure Shuffle3(List: TStrings);
var
i, r: Integer;
s: Array of String;
t: String;
begin
SetLength(s, List.Count);
Forum: Object-Pascal / Delphi-Language
Delphi
by kcx,
18. Mär 2008
Es sind die Items einer ListBox.
Habe ich schon probiert, ist aber leider genauso langsam.
Eine Möglichkeit wäre wohl der Umweg über ein String Array oder gibt es noch eine bessere Lösung?
Forum: Object-Pascal / Delphi-Language
Delphi
by kcx,
18. Mär 2008
Hallo,
Ich suche einen Code eine Stringliste möglichst schnell zu mischen.
Ich habe folgenden Code, der auch funktioniert, nur leider sehr langsam ist.
procedure Shuffle(List: TStrings);
var
i: Integer;
begin
Randomize;