Datei Delphi Byte textdatei Delphi 5

Delphi5: Probleme mit langen Strings

Von: , Frage gestellt am Di, 24. Okt 2000

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

2 Antworten zu dieser Frage

1. Antwort von nach 10 Stunden hilfreich

   Re: Delphi5: Probleme mit langen Strings

   Hallo Uwe,
   
   kann es sein, dass in Deinem String ein Zeichen vorkommt, das von Delphi als EOF interpretiert wird (kommt drauf an, wie Du die Datei geöffnet hast)?
   
   Gruß Dieter
   

2. Antwort von nach 19 Stunden hilfreich

   Re: Delphi5: Probleme mit langen Strings

   Hallo Uwe,
   habe mal ne kleine Exportroutine zusammengestellt. So exportiere ich immer. Vielleicht nützt es was.
   
   procedure Export;
   var F:TextFile;
   str:String;
   begin
   try
   Screen.Cursor := crHourGlass;
   AssignFile(F,'c:\temp\temp.txt');
   Rewrite(F);
   str := 'LfdNr';
   Writeln(F,str);
   str :='1';
   Writeln(F,str);
   str :='2';
   Writeln(F,str);
   str :='3';
   Writeln(F,str);
   finally
   Screen.Cursor := crDefault;
   CloseFile(F);
   end;
   end;
   
   Gruß [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
   

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!