QuickUnsort

[morbo]

Hi,
meine erste Funktion ist:

Code:

procedure Tform1.doShuffle(var sl: TStringDynArray);
var
  i, l, r1, r2: Integer;
  sTmp: String;
begin
  l := Length(sl)-1;
  Randomize;

  for i:=0 to l div 2 do
  begin
    r1 := RandomRange(0, l);
    r2 := RandomRange(0, l);
    sTmp := sl[r1];
    sl[r1] := sl[r2];
    sl[r2] := sTmp;
  end;
end;

hat jemand eine bessere?