Filesize.PAS

Language:
Русский
English

  {Filesize.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the FileSize function. }

 var
   F: file of Byte;
 begin
   { Get file name from command line }
   Assign(F, ParamStr(1));
   Reset(F);
   Writeln('File size in bytes: ', FileSize(F));
   Close(F);
 end.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //