Как класс располагается в памяти.

[VintProg]

Допустим у нас есть класс:

Type
 TMClass = class
   private
      fX : integer
   public
      procedure SetX(X : integer);
      construcotr Create;
 end;

Как он будет располагаться в памяти?

[Utkin]

Никак. Классы - это описание объекта. Также как и любые типы.
Например, как будет располагаться:

type
     x = record
        Data: Integer;
        Data2: Integer;
     end;

Тоже никак до наступления:

var
    y: x;

Однако при этом выделяется место под методы класса. Поля же хранятся в конкретных созданных объектах.

[VintProg]

А объект как тогда.

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

сначало указатель на VMT потом поля класса.

[Баламут]

Ну вот.. А я тут хотел об VMT и прочей адресации в лицах рассказать...

[DomiNick]

Сообщение от Баламут

Ну вот.. А я тут хотел об VMT и прочей адресации в лицах рассказать...

Ну а что ж... Мне бы тоже было интересно послушать...

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

чтож, чую надо писать статью о классах Delphi.
правда сегодня я уже не в состоянии, может начну, но точно не допишу сегодня

[VintProg]

И каким образом можно вызвать процедуру объекта, не зная структуру?

[Utkin]

По имени метода класса. Теоретически можно найти адрес процедуры, но Делфи специально этому препятствует и сделать это в обход стандартных средств проблематично. Хотя если покопаться в литературе о том как создается экземпляр класса (в момент создания объект_класса=ТКласс.Create; и до наступления самого TКласс.Create), возможно существует способ выполнения процедуры без привязки к конкретным полям. Но все это не по-феньшую. Ибо если тебе нужны такие заморочки, то нафига процедуру помещать в класс? Объекты специально ограничивают доступ, чтобы упростить разработку и уменьшить число ошибок. Если Вам срочно нужная эта процедура, сделайте ее в виде обычной процедуры, а не как метод.

[Stilet]

вызвать процедуру объекта, не зная структуру?

Да оч просто. как и в классическом паскале можно просто получить адрес этой процедуры:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
 a=class
  procedure aga;
 end;
{ a }

procedure a.aga;
begin
 write('ugu');
end;

var p:procedure;
begin      {$o-}
 p:=@a.aga;
  p;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

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