Правила форума
FilePos.PASЯзык:
Русский
English
uses Crt;
var
F : file of Byte;
Size : LongInt;
begin
{ Get File name from command line }
Assign(F, ParamStr(1));
FileMode := 0;
Reset(F);
Size := FileSize(F);
WriteLn('Размер файла : ', Size, ' байт.');
WriteLn('Установка указателя позиции на середину файла...');
Seek(F, Size div 2);
WriteLn('Текущая позиция : ', FilePos(F));
Close(f);
end.
var
F : file of Byte;
Size : LongInt;
begin
{ Get File name from command line }
Assign(F, ParamStr(1));
FileMode := 0;
Reset(F);
Size := FileSize(F);
WriteLn('Размер файла : ', Size, ' байт.');
WriteLn('Установка указателя позиции на середину файла...');
Seek(F, Size div 2);
WriteLn('Текущая позиция : ', FilePos(F));
Close(f);
end.
::
::
::
