[<<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