Eingabe mischen

[Sir Rufo]

Wenn kein var dann sollten die Parameter nicht beschrieben werden. Und bei einem string -Parameter dann ein const verwenden (Performance).

Delphi-Quellcode:

function Shuffle(const AStr : String ): String;
var
  i, j: integer;
  temp : Char;
begin
  Result := AStr;
  for i := length(Result) downto 1 do
  begin
    j := Random(i)+1;
    temp := Result[i];
    Result[i] := Result[j];
    Result[j] := temp;
  end;
end;