home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / insidetp / 1990_01 / fileutil.pas next >
Pascal/Delphi Source File  |  1989-12-15  |  913b  |  43 lines
  1. UNIT FileUtil;
  2.  
  3. INTERFACE
  4. USES Crt,Dos;
  5. FUNCTION GetFileName(S:STRING):STRING;
  6. PROCEDURE IOError(IOTest:Integer);
  7.  
  8. IMPLEMENTATION
  9.  
  10. FUNCTION GetFileName(S:STRING):STRING;
  11. VAR FileName:STRING[11];
  12.     i:Integer;
  13. BEGIN
  14.  FileName:='';
  15.  i:=1;
  16.  WHILE S[i]<>#0 DO
  17.   BEGIN
  18.    FileName[i]:=(S[i]);
  19.    i:=i+1
  20.   END;
  21.  FileName[0]:=Chr(i-1);
  22.  GetFileName:=FileName
  23. END;
  24.  
  25. PROCEDURE IOError(IOTest:Integer);
  26. {Determine Error Condition and Halt PROGRAM}
  27. BEGIN
  28.     CASE IOTest OF
  29.        2 : Write('File not found - ');
  30.        3 : Write('Path not found on Open - ');
  31.        4 : Write('Too many open files - ');
  32.        5 : Write('Invalid File Mode on Open - ');
  33.      100 : Write('Disk Read Error - ');
  34.      101 : Write('Disk Write Error - ');
  35.      102 : Write('File not assigned - ');
  36.      103 : Write('File not open - ');
  37.     END;
  38.     WriteLn('IOResult= ',IOTest);
  39.     Halt(1)
  40. END;
  41.  
  42. END.
  43.