Правила форума
FreeMem.PASЯзык:
Русский
English
uses Crt;
type TFriendRec = record
Name : String[30];
Age : Byte;
end;
var
P : Pointer;
begin
if MaxAvail < SizeOf(TFriendRec) then
WriteLn('Недостаточно памяти')
else
begin
{ Распределяем память в куче }
GetMem(P, SizeOf(TFriendRec));
{ ...}
{ ... Используем память ... }
{ ...}
{ Освобождаем её при завершении программы }
FreeMem(P, SizeOf(TFriendRec));
end;
end.
type TFriendRec = record
Name : String[30];
Age : Byte;
end;
var
P : Pointer;
begin
if MaxAvail < SizeOf(TFriendRec) then
WriteLn('Недостаточно памяти')
else
begin
{ Распределяем память в куче }
GetMem(P, SizeOf(TFriendRec));
{ ...}
{ ... Используем память ... }
{ ...}
{ Освобождаем её при завершении программы }
FreeMem(P, SizeOf(TFriendRec));
end;
end.
::
::
::
