Eigenschaften während der Laufzeit für Dateiausgabe ändern

Piper44 · Hält's aus hier Beiträge: 11

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, 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.

Hier mein Ansatz / Auszug:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject); 
var 
datei:TextFile; 

begin 
AssignFile(datei, 'c:\test.txt'); 
Append(datei); 
WriteLn(datei,DateTimeToStr(now)); 
WriteLn(datei,Label1.Caption); 
WriteLn(datei,ComboBox1.Text); 
etc.

Schonmal Danke für eure Tipps!

Moderiert von Christian S.: Delphi-Tags hinzugefügt

jakobwenzel · Verfasst: Sa 06.01.07 14:25

So geht das nicht. Die Formatierung betrifft nur die Ausgabe am Schirm, nicht die Datei. Du musst in ein Format speichern, was auch Formatierungen zulässt, wie zb. HTML oder RTF oder auch PDF.

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

Piper44 · Hält's aus hier Beiträge: 11

Wie das gehen soll, kann ich mir noch nicht vorstellen. Habe gerade festgestellt, dass wenn ich anstatt einer simplen Textdatei (c:\test.txt) nun versuche die o.g. Zeilen in eine Worddatei (c:\test.doc) abzuspeichern, ist diese leer. Warum geht das nur mit .txt ? Und wie könnte mein o.g. Problem gelöst werden.

jakobwenzel · Verfasst: Sa 06.01.07 15:33

Womit haste die Datei dann geöffnet? Word? Wenn ja, liegts daran, dass die Datei nicht das richtige Format hat.

Als Lösung lieste dich entweder in die Formate ein und schreibst das ganze dann manuell in die Datei, oder du schreibst das ganze in ein RichEdit und speicherst das dann.

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

Piper44 · Hält's aus hier Beiträge: 11

Danke für die bisherige Hilfe. Habe ein RichEdit angelegt, aber Speichern in Word, als .doc oder .rtf klappt leider nicht. Beim Öffnen der Word-Datei ist sie immer leer. Speichern in das .txt File klappt, kann aber dort nicht formatiert werden. Wo liegt der Hase begraben?

GTA-Place · Verfasst: Sa 06.01.07 21:13

Die Datei bleibt immer eine Textdatei, egal wie du die Endung nennst (kannst auch *.bla nennen und es wird eine Textdatei bleiben). Schau dir die Spezifikationen zu RTF an: de.wikipedia.org/wiki/Rich_Text_Format

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

jaenicke · Verfasst: Sa 06.01.07 23:02

Piper44 hat folgendes geschrieben:

Habe ein RichEdit angelegt, aber Speichern in Word, als .doc oder .rtf klappt leider nicht. Beim Öffnen der Word-Datei ist sie immer leer.

Poste doch bitte mal den entsprechenden Code. Wenn schon nicht korrekt formatiert (das muss ja erst noch gemacht werden), so müsste in dieser Datei doch der Text aus dem RichEdit-Feld stehen.

Es gibt bei Delphi auch unterhalb vom dem Verzeichnis, wo du es installiert hast den Ordner Demos und darin unter anderem eine fürs RichEdit. Ich fürchte aber die ist zu umfangreich für dich (ich meine jetzt von daher, dass du durch den Code vielleicht nicht durchblickst), aber du kannst sie dir ja mal ansehen...
Verzeichnis der Demo bei Installation im Standard-Ordner bei Delphi 2006:

markieren

Quelltext

1:	C:\Programme\Borland\BDS\4.0\Demos\DelphiWin32\VCLWin32\RichEdit

Bei Delphi 7:

markieren

Delphi-Quelltext

1:	C:\Programme\Borland\Delphi7\Demos\RichEdit

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme