Wie bekomme ich per Button in ein Memofeld einen Buchstaben?

[Jürgen Thomas]

Hallo,

willst Du in den Text innerhalb des Memo-Feldes per Button.Click ein Zeichen einfügen? Dann geht das z.B. so ähnlich:

Delphi-Quellcode:

procedure TForm1.TextEinfuegen(var aMemofeld: TMemo; const sText: string);
begin
  aMemofeld.Lines.Text := LeftStr(aMemofeld.Lines.Text, aMemofeld.SelStart-1)
                        + sText
                        + RightStr(aMemofeld.Lines.Text, aMemofeld.Lines.Count - aMemofeld.SelStart);
end;

Ungetestet; vor allem habe ich nicht genau überlegt, ob SelStart mit +/-1 verbunden werden muss. Vielleicht gibt es inzwischen auch eine einfache Routine, um einen Text in den String aMemofeld.Lines.Text einzufügen.

Meinen Code habe ich so geschrieben, dass ein beliebiges Memo um einen beliebigen Text (also ein einzelnes Zeichen, auch Leerzeichen, oder auch längere Texte) ergänzt werden kann.

Genügt das? Jürgen

PS. Ich könnte mir vorstellen, dass es auch schneller geht; dazu fällt mir aber im Moment nichts ein.