WriteLN sendet zu wenig

FinnO · Verfasst: Do 03.04.08 18:13

Hallo,

in meinem Programm, in dem ich zur Laufzeit eine HTML-Datei erstellen möchte, sendet WriteLN zu wenig.

Mein Quelltext:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

//Text- html file erstellen
assignfile(TextHTML,'Data\TempFOF'+'.fot');
  rewrite(TextHTML);
    WriteLN(TextHTML,'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">');
    WriteLN(TextHTML,'<html xmlns="http://www.w3.org/1999/xhtml">');
    WriteLN(TextHTML,'<head>');
    WriteLN(TextHTML,'<meta http-equiv="Content-Type" content="text; charset=utf-8" />');
    WriteLN(TextHTML,'<title>Unbenanntes FreeOfficeWriterdokumen</title>');

In der datei wird hinter Unben... abgeschnitten.

Fehler gelöst -> Closefile hats aus unerklärlichen gründen getan.

Silas · Verfasst: Do 03.04.08 18:28

FinnO hat folgendes geschrieben:

Closefile hats aus unerklärlichen gründen getan.

Das liegt an der gepufferten Ausgabe, CloseFile schreibt den Puffer in die Datei, sofern das noch nicht geschehen ist. :wink:

_________________
Religionskriege sind nur Streitigkeiten darüber, wer den cooleren imaginären Freund hat ;-)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme