Hallo Delphianer,
ich habe da ein kleines Problem mit dem Speichern in Textdateien. Ich schreibe mehrere gleichlange Zeilen in eine Textdatei. Wenn ich nun diese Textdatei in einen Editor lade, ist die letzte Zeile nur 128 Byte lang.
Rewrite(FormHaupt.tfExpDatei);
sStatiKopf1 := 'Hier steht ein 180 Byte langer String';
Writeln(FormHaupt.tfExpDatei, sStatiKopf1);
sStatiKopf2 := 'Hier steht ein 180 Byte langer String';
Writeln(FormHaupt.tfExpDatei, sStatiKopf2);
Hättest Du einen Tip für mich, was ich da falsch mache.
MfG.
Uwe
ich habe da ein kleines Problem mit dem Speichern in Textdateien. Ich schreibe mehrere gleichlange Zeilen in eine Textdatei. Wenn ich nun diese Textdatei in einen Editor lade, ist die letzte Zeile nur 128 Byte lang.
Rewrite(FormHaupt.tfExpDatei);
sStatiKopf1 := 'Hier steht ein 180 Byte langer String';
Writeln(FormHaupt.tfExpDatei, sStatiKopf1);
sStatiKopf2 := 'Hier steht ein 180 Byte langer String';
Writeln(FormHaupt.tfExpDatei, sStatiKopf2);
Hättest Du einen Tip für mich, was ich da falsch mache.
MfG.
Uwe
Comment