mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-02 00:53:40 +02:00
19 lines
339 B
ObjectPascal
19 lines
339 B
ObjectPascal
Program Example24;
|
|
|
|
{ Program to demonstrate the FileSize function. }
|
|
|
|
Var F : File Of byte;
|
|
L : File Of Longint;
|
|
|
|
begin
|
|
Assign (F,paramstr(1));
|
|
Reset (F);
|
|
Writeln ('File size in bytes : ',FileSize(F));
|
|
Close (F);
|
|
Assign (L,paramstr (1));
|
|
Reset (L);
|
|
Writeln ('File size in Longints : ',FileSize(L));
|
|
Close (f);
|
|
end.
|
|
|