Buchstaben vertauschen

[Sharky]

Zitat von GuenterM:

.... hat jemand ne ahnung, wie das gehen könnte??
Gruß G.M.

Hai Guenter,

hier mal meine Version:

Delphi-Quellcode:

function MixString (Const value : string) : String;
var
  foo : String;
  midstr : String;
  ndx : Integer;
  rand : Integer;
begin
  foo := value;
  midstr := copy (value,2,Length(foo)-1);
  for ndx := 2 to Length(foo) -1 do
  begin
    rand := Random(Length(midstr)-1)+1;
    foo[ndx] := midstr[rand];
    Delete (midstr,rand,1);
  end;
  result := foo;
end;