Размер объекта

[Sibedir]

Известно, что со смещением -4 от указателя на динамические данные хранится их размер. Пишу:

  ShowMessage (IntToStr (PInteger (Integer(Form1) - 4)^));
  ShowMessage (IntToStr (Form1.ClassType.InstanceSize));

В итоге, первое сообщение 770, второе 764. Разница 6 байт.
4 байта ушли на указатель на класс. Ни как не могу понять, откуда еще 2 байта?

Добавленно --------------------------------------------------------------
Или так:

  TMyObject = class
  private
    F1: array [0..1] of Byte;
  protected
  public
  end;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  o: TMyObject;
begin
  o := TMyObject.Create;
  ShowMessage (IntToStr (PInteger (Integer(o) - 4)^));
  ShowMessage (IntToStr (o.ClassType.InstanceSize));
  o.Free;
end;

PInteger (Integer(o) - 4)^)) = 14
o.ClassType.InstanceSize = 8 (это понятно, выделяется порциями)
Опять 14 - 8 = 6
Но если

  TMyObject = class
  private
  protected
  public
  end;

PInteger (Integer(o) - 4)^)) = всеравно 14 о_О
o.ClassType.InstanceSize = 4

[Sibedir]

Вопрос еще актуален:
Почему GetMem(s) выделяет минимум 14 байт (не кратно 4), а при увеличении s добавляет порции по 4Б? При этом разница между реально выделенной памятью и s всегда => 6. На что резервируются эти 6 байт.
На сколько я понял, в конце выделенного участка есть ссылка на следующий выделенный участок (как в динамическом списке). Но это 4 байта а не 6.

[Пепел Феникса]

скорее всего до 14-ти еще два байта на чтото заняты, вообще посмотрите адреса, может 14 и идет до выравнивания на 4.

а при увеличении s добавляет порции по 4Б?

ну это итак понятно ибо выравнивание.

[GunSmoker]

Фрагментация. Если хранить данные с точностью до байта, то накладные расходы на управляющую информацию могут перевесить реальные данные.

Иными словами, это делается по той же причине, почему файловая система хранит файлы кластерами.

На прикладном уровне в управлении памятью считается нормальным не более чем двукратное превышение выделенной памяти над запрошенной. (прежде чем начать возмущаться по поводу "ай как много памяти пропадает", вспомните правило trade size for speed и рассмотрите любой сценарий с SetLength).

P.S. Понятно, что реальна картина выделения памяти зависит от того, какой менеджер памяти используется.

[Sibedir]

Иными словами, это делается по той же причине, почему файловая система хранит файлы кластерами.

Да, я знаю. Не могу вкурить откуда 6. Не 4, не 8, а 6. он же не кратен 4-м. Откуда взялось такое смещенное выравнивание?

P.S.:
Осторожно, тема - кондидат на холивар.
Не хотелось бы.

[GunSmoker]

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

Да, я знаю. Не могу вкурить откуда 6.

В каком смысле? Это волшебное число.

[Sibedir]

Смешно
Но не понятно