Auf den letzten char in einer Datei zugreifen

[KodeZwerg]

Zitat von kagi3624:

wie kann ich auf den letzten Char in der Textdatei zugreifen

very oldschool, nur zum auslesen des letzten zeichen erstmal gedacht...

Delphi-Quellcode:

var
  DateiHandle: THandle;
  dwBytesRead: Cardinal;
  Buf: Byte;
begin
  DateiHandle := CreateFile('Dateiname.csv', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  if DateiHandle <> INVALID_HANDLE_VALUE then
  begin
    SetFilePointer(DateiHandle, -1, nil, FILE_END);
    ReadFile(DateiHandle, Buf, 1, dwBytesRead, nil);
    // Buf checken machen tuen
    ShowMessage(IntToStr(Buf));
    CloseHandle(DateiHandle);
  end;
end;

[himitsu]

Bei der StringListe aufpassen, dass es nicht knallt, sollte die Datei leer sein und einfach so ohne Prüfung auf Count-1 zugegriffen werden,
bzw. das letzte Char, wenn es nichts in der Zeile gibt.

PS: TStringList hängt beim Speichern einen Zeilenumbruch hinter jede Zeile, selbst wenn es beim Einlesen hinter der letzten Zeile keinen Zeilenumbruch gab.


CreateFile, SetFilePointer, ReadFile, SetEndOfFile, CloseHandle
oder

Delphi-Quellcode:

S := TFileStream.Create(...);
//S.Position := S.Size - 1;
//if AnsiChar(S.Read(..., 1)) = ',' then
S.Size := S.Size - 1;
S.Free;

CreateFile/TFileStream knallt nichts, außer du willst es.
Ein Read/SetPosition hinter das Ende wird auf das Ende zurückgesetzt, bzw. stoppt dort.
Einige Read-Methoden (die ohne Result), werfen eine Exception, wenn sie nicht genug lesen/schreiben konnten und die mit Result sagen dir wieviel sie wirklich gemacht hatten (wenn du nicht vergisst die Results auszuwerten).
Read/Write vs. ReadBuffer/WriteBuffer

[Dennis07]

Zitat von kagi3624:

Hallo, unfreiwilliger Delphi 6 User hier

Wieso das? Es gibt doch mittlerweile die Community Edition...

Zitat von kagi3624:

wie kann ich auf den letzten Char in der Textdatei zugreifen um den eventuell zu löschen? Hintergrund: Ich schreibe in eine CSV Einträge und möchte das letzte Komma einfach löschen, ohne dass es in den EOF zugreift oder mir sonstwie um die Ohren fliegt.

Entweder über eine TStringList, oder über einen TFileStream, oder über die (veralteten) TextFile-Routinen.