Узнать размер файла

[VirtUX]

Как узнать размер любого (типизированного или нет) файла в байтах? Функция FileSize из FileUtil не подходит - подключать к проекту тяжеловато.

[Mr.Smart]

Так

Код: Выделить всё

var
s: TSearchRec;
begin
  if FindFirst(aFileName,faAnyFile,s)=0 then
   WriteLn(s.Size);
FindClose(s);


или так

Код: Выделить всё

var
f: File;
begin
  AssignFile(f,aFileName);
  Reset(f);
  WriteLn(FileSize(f));
  CloseFile(f);