wie mach ich ein hallöchen zu einem h.l.ö.h.n ?

[gothic_mike]

Zitat von ch33seburger:

hm.. mit einem stringreplace kann ich doch nur bestimmte buchstaben ersetzen oder etwa nicht?
aber ich will doch jeden zweiten buchstaben haben :>

probiers mal so (Nicht getestet, nur mal schnell so hingetippert):

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
  DerString: String;
  ZweitesZeichen: Boolean;
  i: integer;
Begin
  DerString := Edit1.Text;
  ZweitesZeichen := False;
  For i := 1 To Length(DerString) Do
    If DerString[i] <> ' ' Then
    Begin
      If ZweitesZeichen Then
      Begin
        DerString[i] := '.';
        ZweitesZeichen := False;
      End
      Else
        ZweitesZeichen := True;
    End
    Else
      ZweitesZeichen := False;

  Edit2.Text := DerString;
End;