Abspeicherprobleme von Delphi in Word (.doc bzw. .rtf)

[Piper44]

Ich möchte in einer Datei-Speicherliste während der Programmlaufzeit einzelne Zeilen durch anderen Schriftschnitt (fett, größer etc.) beeinflussen/ändern.

Ist es für eine Komponente auf dem Bildschirm, so bekomme ich das hin. (z.B. mit Label1.Font.Size:=22

Muß es jedoch zeilenweise in die Datei, so brauch ich noch ein paar Tipps.

Ich möchte konkret, dass nur das Datum und die Zeit in Arial 16 und fett ausgegeben wird (in die Datei). Danach soll die alte Schrift wieder gelten.

WriteLn(datei,DateTimeToStr(now)); //Schreiben des Zeitstempels in die Datei.
bzw. erst in das Formular mit RichEdit.text:=DateTimeToStr(now);

Hier mein Ansatz / Auszug:
procedure TForm1.Button1Click(Sender: TObject);
var
datei:TextFile;
begin
AssignFile(datei, 'c:\test.txt');
Append(datei);
RichEdit.text:=DateTimeToStr(now);
WriteLn(datei,Label1.Caption);
WriteLn(datei,ComboBox1.Text);
etc.

Die Ausgabe in eine simple Editor-Textdatei (.txt) klappt. Hierin kann jedoch nicht zeilenweise formatiert werden. Gebe ich in ein Word-Dokument aus (wie oben, jedoch mit AssignFile(datei, 'c:\test.doc'); bzw. AssignFile(datei, 'c:\test.rtf'); so ist die Datei jeweils leer !! Es wird absolut nichts reingespeichert. WARUM nur ???
Müsste nicht eine RichEdit-Komponente auf dem Formular mit dem Zeitstempel und unsichtbar-Deklaration funktionieren, wenn dieser Zeitstempel mit Arial 16 und fett in die Datei .doc oder .rtf ausgegeben/gespeichert werden soll?! Aber diese Dokumente sind leider nur leer. Freue mich auf eine Hilfe - wo ist denn da der Wurm drin?

[Bernhard Geyer]

Willst du eine RTF oder ein Word-Dokument erzeugen mußt du auch die Regeln dieses Formates befolgen. Wenn du nur eine Textdatei schreibst bleibt es eine Textdatei. Und Textdateien haben keine Formatierung. Wenn Du ein Flasche Bier hast bleibt es Bier auch wenn Du eine Etikett für eine Rotweinflasche drauf klebst.

RTF-Dateien kannst Du sehr einfach mit der bei Delphi mitgelieferten TRichEdit-Komponente erzeugen. In Delphi-Demos-Verzeichnis gibt es auch ein Beispiel zur verwendung dieser Komponente.