[S]Hilfe -> Funktionen -> z.B. ä in ae & hilfe in hoiolofoeo

[FriFra]

So geht's:

Delphi-Quellcode:

function Huenerize(Wert: string): string;
var
  n: integer;
begin
  Result := Wert;
  for n := Length(Result) downto 2 do
    Result := copy(Result, 1, n - 1) + ' bi ' + copy(Result, n,
      Length(Result));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := Huenerize(Edit1.Text);
end;

Rückwärts geht's damit:

Delphi-Quellcode:

function DeHuenerize(Wert: string): string;
begin
  Result := StringReplace(Wert, ' bi ', '', [rfReplaceAll]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text := DeHuenerize(Edit2.Text);
end;