[next] [prev] [prev-tail] [tail] [up]

#### IOresult

Declaration:
  Function IOresult : Word;
Description:
  IOresult contains the result of any input/output call, when the {$i-} compiler directive is active, disabling IO checking. When the flag is read, it is reset to zero. If IOresult is zero, the operation completed successfully. If non-zero, an error occurred. The following errors can occur:

  D O S errors :

  2
    File not found.
  3
    Path not found.
  4
    Too many open files.
  5
    Access denied.
  6
    Invalid file handle.
  12
    Invalid file-access mode.
  15
    Invalid disk number.
  16
    Cannot remove current directory.
  17
    Cannot rename across volumes.

  I/O errors :

  100
    Error when reading from disk.
  101
    Error when writing to disk.
  102
    File not assigned.
  103
    File not open.
  104
    File not opened for input.
  105
    File not opened for output.
  106
    Invalid number.

  Fatal errors :

  150
    Disk is write protected.
  151
    Unknown device.
  152
    Drive not ready.
  153
    Unknown command.
  154
    CRC check failed.
  155
    Invalid drive specified..
  156
    Seek error on disk.
  157
    Invalid media type.
  158
    Sector not found.
  159
    Printer out of paper.
  160
    Error when writing to device.
  161
    Error when reading from device.
  162
    Hardware failure.
Errors:
  None.
See also:
  All I/O functions.

Listing: refex/ex35.pp

Program Example35;
{ Program to demonstrate the IOResult function. }
Var F : text;
begin
Assign (f,paramstr(1));
{$i-}
Reset (f);
{$i+}
If IOresult<>0 then
writeln ('File ',paramstr(1),' doesn''t exist')
else
writeln ('File ',paramstr(1),' exists');
end.

[next] [prev] [prev-tail] [front] [up]