home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / pastrick / asgntest / asgntest.pas next >
Encoding:
Pascal/Delphi Source File  |  1991-12-17  |  1.3 KB  |  52 lines
  1. (* ------------------------------------------------- *)
  2. (*                    ASGNTEST.PAS                   *)
  3. (*   Funktion: Testprogramm zur Demonstration von    *)
  4. (*             »Assign«.                             *)
  5. (*   Sprache : Turbo Pascal ab 4.0                   *)
  6. (* ------------------------------------------------- *)
  7. (*        (c) 1991 Gerd Freese & DMV-Verlag          *)
  8. (* ------------------------------------------------- *)
  9.  
  10. {$A+,B-,D-,E-,I-,L-,N-,R-,S-,V-}
  11.  
  12. PROGRAM AssignTest;
  13.  
  14. USES Crt;
  15.  
  16. VAR
  17.   f          : File;
  18.   i, IOError : INTEGER;
  19.   FileNummer : STRING;
  20.  
  21. {
  22.   PROCEDURE Assign(VAR f; Name : STRING);
  23.   VAR
  24.     d : File ABSOLUTE f;
  25.   BEGIN
  26.     Reset(d);
  27.     IF IOResult = 0 THEN Close(d);
  28.     System.Assign(d, Name);
  29.   END;
  30. }
  31.  
  32. BEGIN
  33.   ClrScr;
  34.   WriteLn('Test der ASSIGN-Prozedur');  WriteLn;
  35.   FOR i := 1 TO 80 DO BEGIN
  36.     Str(i, FileNummer);
  37.     Assign(f, 'TEST' + FileNummer + '.TMP');
  38.     ReWrite(f);
  39.     IOError := IOResult;
  40.     IF IOError <> 0 THEN BEGIN
  41.       WriteLn;  WriteLn;
  42.       WriteLn('Maximale Anzahl von Dateizuordnungen ',
  43.               'erreicht!  IOResult = ', IOError);
  44.       Halt;
  45.     END;
  46.     Write(i:2, '. Datei geöffnet  ');
  47.   END;
  48. END.
  49. (* ------------------------------------------------- *)
  50. (*              Ende von ASGNTEST.PAS                *)
  51.  
  52.