Zufallswörter

[alzaimar]

Hupsa: Das war spät, gestern, so gehts aber:

Delphi-Quellcode:

Var
  i, f : Integer;
Begin
  f := 1;
  For i :=2 To Length (sLetters) do f:=f*i;
  For i:=0 to f-1 do memo1.lines.add (NthPermutation (sLetters,i));
End;