Wörter zufällig wiedergeben

[DeddyH]

Für ein einzelnes Wort könnte das so funktionieren (ungetestet):

Delphi-Quellcode:

function MergedChars(const Src: string): string;
var
  i: integer;
  
  procedure swap(var c1, c2: char);
  var
    tmp: char;
  begin
    tmp := c1;
    c1 := c2;
    c2 := tmp;
  end;
  
begin
  (* Randomize sollte bereits aufgerufen worden sein *)
  Result := Src;
  for i := 2 to Length(Result) - 1 do
    swap(Result[i], Result[Random(Length(Result) + 2) - 1]);
end;