FileSize nicht für Textdateien?

[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