FileSize nicht für Textdateien?

[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