FileSize nicht für Textdateien?

[JPSelter]

Wieso sind Textdateien ausgeschlossen? Hat das einen logischen Grund? Wie bekomme ich alternativ die Grösse einer Textdatei?

[RavenIV]

keine Ahnung.
aber warum benutzt du nicht
FileUtil.GetFileSize

[JPSelter]

Weils das anscheinend nicht mit Delphi5 gibt

[Luckie]

Delphi-Quellcode:

function GetFileSize(szFile: PChar): Int64;
var
  fFile                  : THandle;
  wfd                    : TWIN32FINDDATA;
begin
  result := 0;
  if not FileExists(szFile) then exit;
  fFile := FindFirstfile(pchar(szFile), wfd);
  if fFile = INVALID_HANDLE_VALUE then exit;
  result := (wfd.nFileSizeHigh * (Int64(MAXDWORD) + 1)) + wfd.nFileSizeLow;
  windows.FindClose(fFile);
end;

[RavenIV]

aber die WinAPI-Funktionen kannst du doch verwenden.
schau mal in der MSDN oder online-MSDN nach...

/edit: siehe vorhergenden Beitrag, ich war zu langsam.

[Peter Wolf]

Hallo,

so sollte es gehen:

Delphi-Quellcode:

function GetSize(Datei: AnsiString): Integer;
var
  F : TFileStream;
  Size : integer;
begin
  result:= 0;
  try
    F := TFileStream.Create(Datei, fmOpenRead or fmShareDenyWrite);
  except
    Exit;
  end;
  result := F.Size;
  F.Free;
end;

Grüße Peter

[dataspider]

Es sollte auch ohne den Umweg über den STream gehen:

Delphi-Quellcode:

function GetFileSize(const FileName: string): DWord;
var
  fd: TWIN32FindData;
begin
  if Windows.FindClose(Windows.FindFirstFile(PChar(FileName), fd)) then
    Result := fd.nFileSizeLow
  else
    Result := 0;
end;

Frank

[JPSelter]

Perfekt, dat lüppt, besten Dank!

[Muetze1]

Zitat von JPSelter:

Wieso sind Textdateien ausgeschlossen? Hat das einen logischen Grund? Wie bekomme ich alternativ die Grösse einer Textdatei?

Warum kann ich dir sagen: FileSize() der alten Dateiroutinen gibt als Grösse immer einen Wert an, der den Typ der Datei beachtet und immer die Anzahl der Elemente zurück gibt. Wenn du nun z.B. einen Record hast und einen Dateityp vom Typ des Records (File Of TRecord), dann gibt dir FileSize() an, wieviele Records in der Datei sind - also die Grösse der Datei in Bytes geteilt durch die Grösse des Records (SizeOf(TRecord)). Ist bei File Of Word und anderen Typen nicht anders und bei den Textdateien müsste er dir somit die Anzahl der Textzeilen zurück geben, aber das kann er nicht. Dafür müsste er die gesamte Textdatei scannen und die Zeilenumbrüche verarbeiten und auswerten. Auch hätten die Borländer schlecht bei einer Textdatei die Grösse in Bytes zurückgeben können, weil es zum einen dem Verhalten bei den anderen Dateitypen widerspricht und zum anderen hilft dir eine Byte Angabe nichts, wenn du abzählen willst wann denn EOF() ist, da schliesslich ein LF mal nur auf einem LF oder auch aus einem CR+LF bestehen kann und die Routinen ReadLn() automatisch beide Typen beachten aber dir keine Chance bieten herauszubekommen, wieviel Bytes denn nun für das Zeilenende "draufgingen".

Ähnliches gilt daher auch für FilePos() bei Textdateien.

[JPSelter]

Danke für die ausführliche Antwort. Wo wir schon bei eof sind, da kommt mein nächstes Problem. Ich bekomme eine Exception, wenn ich eof(meinetextdatei) aufrufe (ich will die letzten 1000 Zeilen einer Backup-Textdatei sichern, die backup-Datei löschen wenn sie zu gross geworden ist und diese Zeilen wieder einfügen)

Code:

    AssignFile(t, datei);
    Reset(t);
    while not eof(t) do
    begin
      readln(t, temp);
      tempstr.add(temp);
    end;
    CloseFile(t);