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

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //