buchstaben ersetzten (memo1)

[Toenn]

hi @ all aus der :dp:,
ich möchte in einem memo feld einzelne buchstaben per button durch andere ersetzten. (z.B. Q durch L oder so was)

MfG.
Tuenn

[ixtreme]

evtl. pos() oder replacestring

[himitsu]

Delphi-Quellcode:

Var I: Integer;
  S: String;

Begin
  S := Memo1.Lines.Text;
  For I := 1 to Length(S) do
    If S[I] = 'Q' Then S[I] := 'L';
  Memo1.Lines.Text := S;
  {ersetzt 'Q' durch 'L'}
End;

oder

Delphi-Quellcode:

Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, 'Q', 'L', [rfReplaceAll]);
{[]                           = nur erstes 'Q' => 'L'         }
{[rfIgnoreCase]               = nur erstes 'Q' oder 'q' => 'L'}
{[rfReplaceAll]               = alle 'Q' => 'L'               }
{[rfIgnoreCase, rfReplaceAll] = alle 'Q' oder 'q' => 'L'      }