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