Правила форума
Sizeof.PASЯзык:
Русский
English
{ Пример программы для функции SizeOf }
type CustRec = record
Name : String[30];
Phone : String[14];
end;
var
P : ^CustRec;
begin
GetMem(P, SizeOf(CustRec));
end.
Name : String[30];
Phone : String[14];
end;
var
P : ^CustRec;
begin
GetMem(P, SizeOf(CustRec));
end.
::
::
::
