Auf den letzten char in einer Datei zugreifen

[kagi3624]

Habe das jetzt über TFileStream gelöst. Ich kann meinen Kopf nicht über die Tatsache wickeln warum bei dem String der Index mit 1 und nicht 0, so wie sonst, anfängt.

Code:

procedure exportToCSV(Eintrag : string);
var
  strm : TFileStream;
  n : longint;
begin
  strm := TFileStream.Create('file.csv',fmCreate);
  n := Length(Eintrag);
  try
    strm.Position := 0;
    strm.Write(Eintrag[1], n);
    strm.Size := strm.Size - 1;
  finally
    strm.Free();
  end;
end;