Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi formatierung von Text im TRichEdit

**Xeno-Sebi**

Hi!

Ich habe folgendes Problem: Ich ersetze in einem TRichEdit alle "<" durch "\b<" und alle ">" durch ">\b0", damit html-tags dickgedruckt ausgegeben werden.

markieren

Code:

			text.text:=StringReplace(text.text, '<', '\b<', [rfIgnoreCase,rfReplaceAll]);

text.text:=StringReplace(text.text, '>', '>\b0', [rfIgnoreCase,rfReplaceAll]);

Leider wird aus "\b" dann "\\b", was dafür sorgt, dass die formatierung nicht wirkt, sondern vor dem "<" "\b" als Text ausgegeben wird.

Wenn ich es so mache:

markieren

Code:

			procedure TForm1.Button1Click(Sender: TObject);

var temptext:TStringList;

Begin

temptext:=TStringList.Create;

temptext.Text:='{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil MS Sans Serif;}}\viewkind4\uc1\pard\f0\fs16';

temptext.Text:=temptext.Text+StringReplace(text.text, '<', '\b<', [rfIgnoreCase,rfReplaceAll]);

temptext.Text:=StringReplace(temptext.Text, '>', '>\b0', [rfIgnoreCase,rfReplaceAll])+'}';

temptext.SaveToFile(ExtractFilePath(Application.ExeName)+'temp.txt');

text.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'temp.txt');

end;

geht es, aber ist es recht unelegant

kann mir vielleicht wer helfen?