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