Guten Morgen.
Ich habe ein Word-Dokument, das ich gerne in einer RichTextBox unterbringen würde. Das Dokument enthält aber nicht nur Text, sondern auch eine umfangreiche Tabelle. Nachdem Word die Möglichkeit bietet, eine Dokument auch im RTF-Format zu speichern, bin ich davon ausgegangen, dass ich den Inhalt dieser Datei auch in eine RichTextBox einlesen kann. - Oder vielleicht doch nicht?
Ich habe das wie folgt versucht:
Delphi-Quellcode:
Reader := System.IO.&File.OpenText('SudokuStar.rtf');
RichTextBox1.Text := Reader.ReadToEnd;
Mit dem Ergebnis bin ich allerdings nicht so ganz glücklich. Es ist mir zwar gelungen, die RichtTextBox zu füllen, aber das Ergebnis sieht so aus:
Zitat:
{\rtf1\
ansi\ansicpg1252\uc1\deff0\stshfdbch0\stshf loch0\stshfhich0\stshfbi0\deflang1031\deflangfe103 1{\fonttbl{\f0\froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f1\fswiss\fcharset0\fprq2{\*\panose 020b0604020202020204}Arial;}
{\f35\fswiss\fcharset0\fprq2{\*\panose 020b0506020202030204}Arial Narrow;}{\f242\froman\fcharset238\fprq2 Times New Roman CE;}{\f243\froman\fcharset204\fprq2 Times New Roman Cyr;}{\f245\froman\fcharset161\fprq2 Times New Roman Greek;}
{\f246\froman\fcharset162\fprq2 Times New Roman Tur;}{\f247\froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f248\froman\fcharset178\fprq2 Times New Roman (Arabic);}{\f249\froman\fcharset186\fprq2 Times New Roman Baltic;}
{\f250\froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\f252\fswiss\fcharset238\fprq2 Arial CE;}{\f253\fswiss\fcharset204\fprq2 Arial Cyr;}{\f255\fswiss\fcharset161\fprq2 Arial Greek;}{\f256\fswiss\fcharset162\fprq2 Arial Tur;}
......
Es gibt wohl zwei Möglichkeiten: Entweder kann man tatsächlich nur formatierten Text einlesen oder mein Versuch, das Dokument in die RichTextBox zu bringen, war fehlerhaft.
Für Tipps bin ich wie immer dankbar.
Gruß Jürgen.