Buchstaben an andere Stelle setzten

[scrat1979]

Ich würde das ganze über eine allgemeine Funktion lösen:

Delphi-Quellcode:

function Tausche(Wort : String; bs1, bs2 : integer) : String;
VAR TmpChar : Char;

begin
  TmpChar := Wort[bs1];
  Wort[bs1] := Wort[bs2];
  Wort[bs2] := TmpChar;

  result := Wort;
end;

[...]

Edit2.Text := Tausche(Edit1.Text, 2, 5); // Vertauscht z.B. Buchstabe 2 und 5 von Edit1.Text und weist es dem Text von Edit2 zu.

Grüße,
SCRaT