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

 { ---------------------------------------------------------------- }
 {         VERGLEICH FREEMEM / GETMEM UNTER DOS UND WINDOWS         }
 { ---------------------------------------------------------------- }
 { Demonstriert die "Relativit.t" der Speicherverwaltung unter Win- }
 { dows im Vergleich zu DOS: Unter Windows bleiben auch bei 100%-ig }
 { sauberer Verwendung von GETMEM / FREEMEM (und auch NEW / DIS-    }
 { POSE) immer ein paar Bytes irgendwo h.ngen (um genau zu sein: in }
 { den Handles, die Turbo-Pascal f.r den Programmierer transparent  }
 { anlegt, da ja "echte" Pointer in Windows absolut tabu sind).     }
 { ---------------------------------------------------------------- }
 {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
 { ---------------------------------------------------------------- }
 {      History:                                                    }
 { 1992-04-15   MS   Implementierung.                               }
 { ---------------------------------------------------------------- }

 {$UNDEF Windows}                  { Unter Windows: $DEFINE Windows }

 PROGRAM Units07;

   USES
 {$IFDEF Windows}
     WINCRT;
 {$ELSE}
     CRT;
 {$ENDIF}


   TYPE
     TFriendRec     = RECORD
       Name         : STRING [30];
       Age          : BYTE;
     END;

   VAR
     P              : POINTER;


   BEGIN
     CLRSCR;
     WRITELN;

     IF MAXAVAIL < SIZEOF (TFriendRec) THEN
       WRITELN ('Pech gehabt - nicht genug Speicher ! (Das kann nicht Windows
  sein ?!)')
     ELSE
     BEGIN
       WRITELN (MEMAVAIL,  '   ',  MAXAVAIL);

       GETMEM (P,  SIZEOF (TFriendRec));

       WRITELN (MEMAVAIL,  '   ',  MAXAVAIL);

 { Hier w.rden die Bearbeitungsroutinen kommen ... }

       FREEMEM (P,  SIZEOF (TFriendRec));

       WRITELN (MEMAVAIL,  '   ',  MAXAVAIL);

       WRITELN;
       WRITE ('Weiter ...');
       READKEY;
       WRITELN;
     END;

   END. { PROGRAM UNITS07 }

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