Правила форума
Reset.PASЯзык:
Русский
English
{ Пример программы для процедуры Reset }
function FileExists(FileName : String) : Boolean;
{ Функция возвращает True, если файл существует, иначе
возвращает False. Закрывает файл, если он существует. }
var
F : File;
begin
{$I-}
Assign(F, FileName);
Reset(F);
Close(F);
{$I+}
FileExists := (IOResult = 0) and (FileName <> '');
end; { FileExists }
begin
{ Получаем имя файла из командной строки }
if FileExists(ParamStr(1)) then
WriteLn('Файл существует.')
else
WriteLn('Файл не найден!');
end.
{ Функция возвращает True, если файл существует, иначе
возвращает False. Закрывает файл, если он существует. }
var
F : File;
begin
{$I-}
Assign(F, FileName);
Reset(F);
Close(F);
{$I+}
FileExists := (IOResult = 0) and (FileName <> '');
end; { FileExists }
begin
{ Получаем имя файла из командной строки }
if FileExists(ParamStr(1)) then
WriteLn('Файл существует.')
else
WriteLn('Файл не найден!');
end.
::
::
::
