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?