RichEdit Textformatierung

[Christoph]

Hallo Xeno-Sebi,

habe mein Problem mit Deinem Tipp gelöst. Vielen Dank.
Ist sogar noch etwas einfacher als gedacht, denn das schließende '}' beendet automatisch das bold tag ('{\b fetter Text}').

Sieht jetzt so aus:

Delphi-Quellcode:

var
  TempRichEdit:TRichEdit;

begin
  // rtf schreiben
  TempRichEdit:=TRichEdit.Create(Form1);
  TempRichEdit.Text:='{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil MS Sans Serif;}}\viewkind4\uc1\pard\f0\fs16';
  TempRichEdit.Text:=TempRichEdit.Text+StringReplace(MEINSTRINGTEXT,'{', '{\b ', [rfIgnoreCase,rfReplaceAll]);

  // Ausgabe formatiert aus dem temporären RichEdit
  Form1.RichEdit.Text:=TempRichEdit.Text;

Herzlichen Dank nochmals!

Gruß,
Christoph