IPB

> Continue.PAS
Чат
Форум
Загрузка...
 

Язык:
Русский
English


 { Пример программы для процедуры Continue }

uses Crt;

var
  I    : Integer;
  Name : String[79];
  F    : File;

begin
 for I := 1 to ParamCount do
 begin
    Name := ParamStr(I);
    Assign(F, Name);
   {$I-}
    FileMode := 0;
   Reset(F, 1);
   {$I+}
   if IOResult <> 0 then
   begin
     WriteLn('Файл "', Name, '" не найден...');
     Continue;
   end;
   WriteLn(Name, ' : ', FileSize(F), ' байт');
   Close(F);
 end;
end.
 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"