Eingabe mischen

[Klaus01]

Sollte in etwas so gehen:

Delphi-Quellcode:

procedure Shuffle(var s: String); 
var 
  i, j: integer; 
  temp : Char;
begin 
  for i := length(s)-1 downto 1 do 
  begin 
    j := Random(i); 
    temp := s[i]; 
    s[i] := s[j]; 
    s[j] := temp; 
  end; 
end;

Grüße
Klaus