Was kann ich in einer RichTextBox unterbringen? - Und wie?

[gfjs]

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.

[xaromz]

Hallo,

du lädst ein Richtext-Dokument als Textdokument ein. Dabei kann ja nur der Quelltext rauskommen.
lade den Text lieber direkt:

Delphi-Quellcode:

RichTextBox1.LoadFile('C:\RichText.rtf');

Gruß
xaromz

[Jürgen Thomas]

Hallo Jürgen,

Zusatzhinweis: Die RTF-Controls können beileibe nicht alles, was RTF in Word kann: kein Blocksatz, Tabulatoren nur linksbündig, wahrscheinlich noch anderes. Wenn Du darüber eine genaue Darstellung und Druck wünschst, lass' es lieber bleiben - man ärgert sich nur. Für den kurzen Überblick oder für einfachere Formatierungen geht es.

Gruß Jürgen

[gfjs]

Hallo, Jürgen.

Vielen Dank. Ich probier's auf alle Fälle mal aus - kann ja nicht schaden. Wenn's nicht so gut aussieht muss ich halt das Worddokument umschreiben.

Gruß Jürgen.