Auf den letzten char in einer Datei zugreifen

[Luckie]

Delphi-Quellcode:

var 
  sl: TStringList;
  s: String;
Beginn
  // ...;
  s := sl.Text;
  Delete(s, 0, length(s)-1);
  sl.Text := s;
  sl.SaveToFile;