IPB

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

Language:
Русский
English

    Continue.PAS
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  {Sample code for the Continue procedure}

  uses WinCrt;
  var
    I: Integer;
    Name: string[79];
    F: file;
  begin
    for I := 1 to ParamCount do
    begin
      Name := ParamStr(I);
      Assign(F, Name);
      {$I-}
      Reset(F, 1);
      {$I+}
      if IOResult <> 0 then
      begin
        WriteLn('File not found: ', Name);
        Continue;
      end;
      WriteLn(Name, ': ', FileSize(F), ' bytes');
      Close(F);
    end;
  end

 
 К началу страницы 
Тэги:
 

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



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