Fehler beim einfügen in RichEdit

[Nalincah]

1 RichEdit (RichEdit1) und ein Button (Button1):

Prozedure des Buttons:

Code:

procedure TForm1.Button5Click(Sender: TObject);
begin
  RichEdit1.Lines.Text := '{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fdecor\fprq2\fcharset0 Bauhaus 93;}{\f1\fswiss\fcharset0 Arial;}}';
  RichEdit1.Lines.Text := RichEdit1.Lines.Text + '{\*\generator Msftedit 5.41.15.1503;}\viewkind4\uc1\pard\ul\b\i\f0\fs28 Hallo\ulnone\b0\i0\f1\fs20\par';
  RichEdit1.Lines.Text := RichEdit1.Lines.Text + '}';
end;

Gibt diesen Fehler aus:

Zitat:

Fehler beim Einfügen von RichEdit-Zeile.

Woran liegt das?

[MasterC]

Ganz falscher Ansatz.

Du ersetzt den ganzen Text mit Richedit1.Lines.Text.

Probier es mal so:

Delphi-Quellcode:

Richedit1.SelText := 'Ich werde beim Cursor eingefügt';
Richedit1.Lines.Add('Ich werde am Ende des Textes eingefügt');

MfG ganxta.