Wie kann man bei Lazarus in einem Memo alle Zeichen nebeneinander bekommen?

[Perlsau]

Benutze doch einfach SelText:

Delphi-Quellcode:

procedure TForm1.BtnE2ZClick(Sender: TObject);
Var
  i : Intgeger;
  
begin
  For i := 0 To Length(MyMemo.Text) -1 Do
  Begin
    MyMemo.SelStart := i;
    MyMemo.SelLength := 1;
    If MyMemo.SelText = 'E' Then MyMemo.SelText := 'Z';
    If MyMemo.SelText = 'e' Then MyMemo.SelText := 'z';
  End;
end;

Oder mit dem Text-String direkt (Achtung: Hier hat das erste zeichen den Index 1):

Delphi-Quellcode:

procedure TForm1.BtnE2ZClick(Sender: TObject);
Var
  i : Intgeger;
  
begin
  For i := 1 To Length(MyMemo.Text) Do
  Begin
    If MyMemo.Text[i] = 'E' MyMemo.Text[i] := 'Z';
    If MyMemo.Text[i] = 'e' MyMemo.Text[i] := 'z';
  End;
end;

Oder noch einfacher mit ReplaceStr aus der Unit StrUtils:

Delphi-Quellcode:

procedure TForm1.BtnE2ZClick(Sender: TObject);
Var
  i : Intgeger;
  
begin
  MyMemo.Text := StrUtils.ReplaceStr(MyMemo.Text,'E','Z');
  MyMemo.Text := StrUtils.ReplaceStr(MyMemo.Text,'e','z');
end;

Ob's ReplaceStr unter Lazarus gibt, vermag ich jetzt nicht zu beantworten.