Как найти размер объекта

[Sibedir]

Имеется куча объектов разного типа (мои и не мои). Поля объектов имеют простые типы: integer, real, char, byte. Нужно узнать сколько памяти занимает каждый из них.

[AlDelta]

Функция SizeOf возвращает занимаемый размер (в байтах) переменной (Variable) или типа (Type).
Более подробно в справке Делфи или здесь:
http://www.delphibasics.ru/SizeOf.php

[Sibedir]

Решил через MyObject.InstanceSize

Спасибо за ссылку: http://www.delphibasics.ru/SizeOf.php

Вопрос №2:
А что делать если поле типа String или Record или Array?

[zetrix]

size:=sizeof(x), где х - хоть строка, хоть массив, хоть запись (структура).

Примечание:
*если строка задана как s:string; то размер будет всегда 4 (указатель). Если хотим узнать точнее пишем length(s) - возвращает длину строки. 1 символ = 1 байт
*если задана как s:=string[N]; (0 < N < 256) то размер будет N+1

При WideString аналогично, учитываем, что 1 символ = 2 байта. Юникод всё-таки)

[Sibedir]

size:=sizeof(x)

не конает для объектов.

Короче, есть некий класс:

TMyClass = class
  F1: Integer;
  F2: Real;
  F3: String;
end;

В коде:

var
  MyObject: TMyClass

...

  s1 := SizeOf (MyObject);
  s2 := MyObject.InstanceSize;

Имеем:

s1 = 4
s2 = 20

Ни то, ни другое не веоно

Мне нужен весь объем занимаемый объектом вместе с его полями. Не буду же я все доступные объекты регестрировать и по полям их проверять. Я пока на классы, поля которых являются объектами, и не замахиваюсь. Мне бы с массивами и записями разобраться.

Неужели задача неразрешима. Жаль

[JTG]

TMyClass = class
F1: Integer;
F2: Real;
F3: String;
end;

PMyClass = ^TMyClass;

var
MyObject: PMyClass

И дальше как-то рулить с указателями?

[rpy3uH]

по моему размер данных класса это <объект>.InstanceSize
справка Delphi:

Description
InstanceSize indicates how many bytes of memory are required for a class’s instance data. InstanceSize is called from methods that allocate and deallocate memory. InstanceSize is not a virtual method, so it cannot be overridden. InstanceSize should be called only when implementing a custom version of NewInstance.

[Sibedir]

для rpy3uH:

см. #6

для JTG:

Да не могу я через

PMyClass = ^TMyClass;

Говорю же, куча этих классов и не мои они и в разных модулях лежат и параллельно разрабатываются. А мне вот вынь да полож единый способ определения размера объекта. Такой вот я тихий извращенец.

Постараюсь решить через

...
  vmtTypeInfo
  vmtFieldTable
...

Есть такое в System.

[zetrix]

Хм... а почему 20 байт не верно?) Вроде всё верно...
integer = 4 байта
real = 8 байт
string = 4 байта (как указатель)
Итого: 4+4+8=16 байт.
Ну, ещё 4 байта осталось...
Моё мнение - это указатель самого обёкта.
Вот в 20 и уложились

[rpy3uH]

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

Ну, ещё 4 байта осталось...
Моё мнение - это указатель самого обёкта.
Вот в 20 и уложились

так и есть - это поле Self