[BigSam]

Добрый день, интересует как управлять памятью под динамическую запись
типа

Код:

  type
   TRect = packed record
   case Flag: Integer of
     0: (Left, Top, Right, Bottom: Integer);
     1: (TopLeft, BottomRight: Integer);
  end;

Админ: Пользуемсяя тегами для оформления кода.

то есть как правильно инициализировать объект методом New, и
после инициализации и занесения объектов(указателей на них) в список TList как правильно освободить выделенную память?.Ведь размер объектов не фиксированный. Заранее спасибо

[cotseec]

размер как раз фиксированный и равен SizeOf(TRect) (в данном случае), при использовании условия память под такую запись выделяется на максимально требуемое значение

[BigSam]

Сообщение от cotseec

размер как раз фиксированный и равен SizeOf(TRect) (в данном случае), при использовании условия память под такую запись выделяется на максимально требуемое значение

Вот к примеру запись:

Код:

TRec1=record
 a:integer;
 case flag:boolean of
  True: (done:integer);
  False:(b,c:integer)
end;
Var R:TRec1;

Если следовать вашему совету, должно выделиться 20 Б,
но

Код:

ShowMessage(IntToStr( sizeof(r)))

Показывает 16

[lmikle]

Сообщение от BigSam

Вот к примеру запись:

Код:

TRec1=record
 a:integer;
 case flag:boolean of
  True: (done:integer);
  False:(b,c:integer)
end;
Var R:TRec1;

Если следовать вашему совету, должно выделиться 20 Б,
но

Код:

ShowMessage(IntToStr( sizeof(r)))

Показывает 16

А с чего ты решил, что должно быть 20? Integer - это 4 байта.

[BigSam]

Сообщение от lmikle

А с чего ты решил, что должно быть 20? Integer - это 4 байта.

20=SizeOf(a)+SizeOf(flag)+SizeOf(done)+SizeOf(b)+S izeOf(c)=5*4

[Bargest]

У тебя ЛИБО done, ЛИБО b и c.

[cotseec]

Сообщение от BigSam

20=SizeOf(a)+SizeOf(flag)+SizeOf(done)+SizeOf(b)+S izeOf(c)=5*4

16=SizeOf(a)+SizeOf(flag)+SizeOf(b)+SizeOf(c)=4*4

Сообщение от Bargest

У тебя ЛИБО done, ЛИБО b и c.

но память выделена под b и c - как наибольшее (по занимаемой памяти) из возможных вариантов в зависимости от флага

[BigSam]

Сообщение от cotseec

16=SizeOf(a)+SizeOf(flag)+SizeOf(b)+SizeOf(c)=4*4

но память выделена под b и c - как наибольшее (по занимаемой памяти) из возможных вариантов в зависимости от флага

Большое спасибо, теперь дошло)
Всем, спасибо!