Delphi5: Probleme mit langen Strings

Computer: Software & Programmierung Programmierung allgemein
#1

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

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

#3

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]