Правила форума
Close.PASЯзык:
Русский
English
{ Пример программы для процедуры Close }
var
F : File;
begin
Assign(F, 'X:\LAUNCH.BAT'); { Открываем файл }
FileMode := 0; { Режим только-чтение }
Reset(F, 1);
WriteLn('Размер файла = ', FileSize(F));
Close(F); { Закрываем файл }
end.
F : File;
begin
Assign(F, 'X:\LAUNCH.BAT'); { Открываем файл }
FileMode := 0; { Режим только-чтение }
Reset(F, 1);
WriteLn('Размер файла = ', FileSize(F));
Close(F); { Закрываем файл }
end.
::
::
::
