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

[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);