home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / tdb / demo / addon03.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-05  |  2.5 KB  |  68 lines
  1. { ──────────────────────────────────────────────────────────────── }
  2. {               DEMOPROGRAMM UNIT "MANYFILE"                       }
  3. { ──────────────────────────────────────────────────────────────── }
  4. { Demonstriert die Auswirkungen, wenn die Unit "MANYFILE" einge-   }
  5. { bunden wird. Ohne ManyFile können maximal 20 Dateien geöffnet    }
  6. { werden (unabhängig vom "FILES="-Eintrag in der CONFIG.SYS !!!    }
  7. { Die Standard-Geräte wie COMx, PRN, STDIN, STDOUT etc. zählen     }
  8. { dabei überigens zu den 20, sprich es bleiben so um die 12), mit  }
  9. { ManyFile ist der Maximalwert 255 Dateien (bzw. der "FILES="-     }
  10. { Eintrag der CONFIG.SYS), von denen auch etwas mehr übrigbleiben. }
  11. { ──────────────────────────────────────────────────────────────── }
  12. { Es wird versucht, 100 mal den eigenen Quelltext zu öffnen, alle  }
  13. { Versuche, bei denen ein Fehler aufgetreten ist, werden proto-    }
  14. { kolliert.                                                        }
  15. { ──────────────────────────────────────────────────────────────── }
  16. { Achtung: Wenn SHARE oder ein NetBIOS-Treiber installiert ist,    }
  17. { funktioniert dieses Demo aus einem anderen Grunde nur für ein    }
  18. { File - vergleiche "UNITS08" !                                    }
  19. { ──────────────────────────────────────────────────────────────── }
  20. {       (c)  1991  by  Aurora  featuring  M.J. Schwaiger           }
  21. { ──────────────────────────────────────────────────────────────── }
  22. {      History:                                                    }
  23. { 1992-04-15   MS   Interfacefestlegung und Implementierung.       }
  24. { ──────────────────────────────────────────────────────────────── }
  25.  
  26. {$UNDEF Windows}                    { Für Windows: $DEFINE Windows }
  27. {$UNDEF Many}                 { $DEFINE: ManyFile wird eingebunden }
  28.  
  29. PROGRAM AddOn03;
  30.  
  31.   USES
  32. {$IFDEF Many}
  33.     ManyFile,
  34. {$ENDIF}
  35. {$IFDEF Windows}
  36.     WINCRT,
  37.     WINDOS;
  38. {$ELSE}
  39.     CRT,
  40.     DOS;
  41. {$ENDIF}
  42.  
  43.  
  44.   VAR
  45.     Arr            : ARRAY [1 .. 100] OF FILE;
  46.     Cnt            : BYTE;
  47.     Result         : INTEGER;
  48.  
  49.  
  50.   BEGIN
  51.     FOR Cnt := 1 TO 100 DO
  52.     BEGIN
  53. {$I-}
  54.       ASSIGN (Arr [Cnt], 'ADDON03.PAS');
  55.       RESET (Arr [Cnt]);
  56. {$I+}
  57.       Result := IORESULT;
  58.  
  59.       IF Result <> 0 THEN
  60.         WRITELN (Cnt, ': ', Result);
  61.     END;
  62.  
  63.     FOR Cnt := 1 TO 100 DO         { Saubere Programmierung - aber }
  64. {$I-}   { Turbo würde sie eigentlich schon selber wieder schließen }
  65.       CLOSE (Arr [Cnt]);
  66. {$I+}
  67.   END. { PROGRAM AddOn03 }
  68.