formatierung von Text im TRichEdit

[fkerber]

Hi!

Auf die Schnelle hab ich mal das rausbekommen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
richedit1.Lines.SaveTofile('text.txt');
memo1.Lines.LoadFromfile('text.txt');
memo1.text:=StringReplace(memo1.text, '<', '\b<', [rfIgnoreCase,rfReplaceAll]);
memo1.text:=StringReplace(memo1.text, '>', '>\b0', [rfIgnoreCase,rfReplaceAll]);
memo1.Lines.SaveToFile('c:\test.rtf');
end;

Verwendet:
Richedit, in das der User schreibt.
Memo, invisible, zum Text ersetzen, da kann man bestimmt noch was anderes machen.


Ciao fkerber