home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 09 / tricks / errortst.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-09  |  893 b   |  31 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    ERRORTST.PAS                        *)
  3. (*          Testprogramm für die Unit ErrorMsg            *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM ErrorTest;
  6.  
  7. USES  Crt, ErrorMsg;
  8.  
  9. VAR
  10.   f                : FILE;
  11.   NameAlt, NameNeu : STRING;
  12.  
  13. BEGIN
  14.   ClrScr;
  15.   GotoXY(25,8);
  16.   Write('*** Umbenennen von Dateien ***');
  17.   REPEAT
  18.     GotoXY(25,10);    Write('Alter Dateiname: ');
  19.     ReadLn(NameAlt);
  20.     GotoXY(25,12);    Write('Neuer Dateiname: ');
  21.     ReadLn(NameNeu);
  22.     Assign(f, NameAlt);
  23. {$I-}
  24.     Rename(f, NameNeu);
  25. {$I+}
  26.         { Übergabe des Fehlercodes an die Prozedur }
  27.     ErrorReport(IOResult);
  28.     GotoXY(25,14);  Write('Weitermachen (J/N) ? ');
  29.   UNTIL Upcase(ReadKey) <> 'J';
  30. END.
  31. (* ------------------------------------------------------ *)