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