Hab nen passenden Code gefunden
:
Delphi-Quellcode:
function Anagram(const s: String): String;
var
i, iRandom, iLast: Integer;
c: Char;
begin
Result := s;
iLast := Length(s);
for i := 1 to Pred(iLast) do
begin
iRandom := Succ(Random(i));
c := Result[iLast];
Result[iLast] := Result[iRandom];
Result[iRandom] := c;
end;
end;
Hier ist das vertige Beispielprog: