Hallo!
Hat jemand einen Tipp, wie ich RTF-Text mit Formatierungscode wieder als lesbaren, formatierten Text in das Richedit bekomme?
Beispiel:
Quelltext
1: 2: 3: 4: 5: 6: 7:
| {\rtf1\fbidis\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fswiss\fprq2\fcharset0 Calibri;}{\f1\fswiss\fprq2\fcharset0 Tahoma;}{\f2\fnil\fcharset0 Tahoma;}} {\colortbl ;\red255\green0\blue0;} \viewkind4\uc1\pard\ltrpar\nowidctlpar\sa200\sl276\slmult1\b\f0\fs28 Hallo!\par \b0\fs22 Kann keiner \cf1\b helfen\cf0\b0 ?\b\par \pard\ltrpar\nowidctlpar\b0\f1\fs16\par \pard\ltrpar\f2\par } |
Normalerweise sollte das mit
lines.loadfromfile klappen, aber in dem Fall nicht. Der Code ist das Ergebnis von
Delphi-Quelltext
1: 2: 3: 4:
| RE1.Lines.SaveToStream(stream); str := StringReplace(stream.DataString,'einer', 'keiner', [rfReplaceAll, rfIgnoreCase]); RE1.text := str; RE1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+ 'test23.rtf'); |
Ich versuche den Weg über Stream, da im Text formatierte Platzhalter sind, deren Ersetzungen die Formatierungen übernehmen sollen.
Habe alternativ noch eine Routine, in der die Textattribute gespeichert werden, wollte es aber mal auf diese Weise probieren.
Gruß
Gagga
Moderiert von Th69: Delphi-Tags hinzugefügt