[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
ADDON03.PAS

 { ---------------------------------------------------------------- }
 {               DEMOPROGRAMM UNIT "MANYFILE"                       }
 { ---------------------------------------------------------------- }
 { Demonstriert die Auswirkungen, wenn die Unit "MANYFILE" einge-   }
 { bunden wird. Ohne ManyFile k.nnen maximal 20 Dateien ge.ffnet    }
 { werden (unabh.ngig vom "FILES="-Eintrag in der CONFIG.SYS !!!    }
 { Die Standard-Ger.te wie COMx, PRN, STDIN, STDOUT etc. z.hlen     }
 { dabei .berigens zu den 20, sprich es bleiben so um die 12), mit  }
 { ManyFile ist der Maximalwert 255 Dateien (bzw. der "FILES="-     }
 { Eintrag der CONFIG.SYS), von denen auch etwas mehr .brigbleiben. }
 { ---------------------------------------------------------------- }
 { Es wird versucht, 100 mal den eigenen Quelltext zu .ffnen, alle  }
 { Versuche, bei denen ein Fehler aufgetreten ist, werden proto-    }
 { kolliert.                                                        }
 { ---------------------------------------------------------------- }
 { Achtung: Wenn SHARE oder ein NetBIOS-Treiber installiert ist,    }
 { funktioniert dieses Demo aus einem anderen Grunde nur f.r ein    }
 { File - vergleiche "UNITS08" !                                    }
 { ---------------------------------------------------------------- }
 {       (c)  1991  by  Aurora  featuring  M.J. Schwaiger           }
 { ---------------------------------------------------------------- }
 {      History:                                                    }
 { 1992-04-15   MS   Interfacefestlegung und Implementierung.       }
 { ---------------------------------------------------------------- }

 {$UNDEF Windows}                    { F.r Windows: $DEFINE Windows }
 {$UNDEF Many}                 { $DEFINE: ManyFile wird eingebunden }

 PROGRAM AddOn03;

   USES
 {$IFDEF Many}
     ManyFile,
 {$ENDIF}
 {$IFDEF Windows}
     WINCRT,
     WINDOS;
 {$ELSE}
     CRT,
     DOS;
 {$ENDIF}


   VAR
     Arr            : ARRAY [1 .. 100] OF FILE;
     Cnt            : BYTE;
     Result         : INTEGER;


   BEGIN
     FOR Cnt := 1 TO 100 DO
     BEGIN
 {$I-}
       ASSIGN (Arr [Cnt],  'ADDON03.PAS');
       RESET (Arr [Cnt]);
 {$I+}
       Result := IORESULT;

       IF Result <> 0 THEN
         WRITELN (Cnt,  ': ',  Result);
     END;

     FOR Cnt := 1 TO 100 DO         { Saubere Programmierung - aber }
 {$I-}   { Turbo w.rde sie eigentlich schon selber wieder schlie.en }
       CLOSE (Arr [Cnt]);
 {$I+}
   END. { PROGRAM AddOn03 }

This page created by ng2html v1.05, the Norton guide to HTML conversion utility. Written by Dave Pearson