viel Mist in einer Textdatei

[The-X]

In "Textfile"s darf nicht ge"seek"t werden, du kannst allerdings mit Append(txtfile); an das Ende der Datei springen um Zeilen anzufügen

Delphi-Quellcode:

const
  Filename = 'foo.txt';
var
  txt:Textfile;
begin
  AssignFile(txt, Filename);
  if FileExists(Filename) then
    Append(txt) // An's Ende der Datei "seek"en
  else
    Rewrite(txt); // Datei erstellen, falls nicht vorhanden

{....}
  Writeln(txtx, 'blaa');
{....}

  CloseFile(txt);
end;

der "Mist" Resultiert aus dem LängenByte des verwendeten ShortStrings (string[255]) und aus der Tatsache,
dass der String nur teilweise mit neuen Daten befüllt wird, aber mit den vollen 255 Zeichen {+ Längenbyte?} geschrieben wird

*Edit: AssignFile statt Assign {noch aus TP -Zeiten }