Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Вниз

как узнать сколько памяти занимает какой-либо объект? 


SB.John   (2002-03-21 12:47) [0]

Например TEdit.

Сорри, если такой вопрос уже был



Alx2   (2002-03-21 12:55) [1]

Например, определяем размер экземпляра класса TForm:
Cardinal(Pointer(Integer(TForm)-40)^)



Alx2   (2002-03-21 13:51) [2]

Вот еще проще: TEdit.InstanceSize :)



Юрий Зотов   (2002-03-21 13:59) [3]

Плюс память, выделенная под Text. И плюс другая динамически выделяемая объектом память, если таковая имеется. То есть, в общем случае задача вряд ли имеет решение.



Alx2   (2002-03-21 14:10) [4]

>Юрий Зотов © (21.03.02 13:59)
Тогда надо решить что считать занимаемой памятью. Тем более, что многие данные могут быть общими.

Наверное, более удобно использовать минимальный размер экземпляра класса так как это дает размер некоторого сплошного участка памяти, минимально необходимого для размещения непосредственно объекта-экземпляра.



SB.John   (2002-03-22 08:17) [5]

Всем спасибо. Оба метода работают и показвают одинаковые значения, но что-то очень уж маленькие. форма занимает 752 байта. А почему тогда простейшее приложение (1 пустая форма и все) жрет 1.7 Мб ОЗУ? Не простейшее (работа с БД через БДЕ) до 20 Мб при размере экзешника 2.0 Мб.



Alx2   (2002-03-22 08:41) [6]

С этого и надо было начинать :)
Здесь связано в большей степени с объемом исполняемого кода (который, кстати, не входит в размер объектов) с ресурсами, хранимыми в exeшнике, с используемыми системными библиотеками ...etc.
Вообщем говоря, вопрос этот регулярно поднимается: поищи по форуму, например слово, KOL.



reonid   (2002-03-22 11:55) [7]

Если со всеми канвасами, списками компонентов и прочей
динамически выделяемой памятью, то можно так:

ams0 := AllocMemSize;
Form := TForm.CreateNew(nil);
ams1 := AllocMemSize;
FormSize := ams1 - ams0;



Юрий Зотов   (2002-03-22 12:13) [8]

> reonid © (22.03.02 11:55)

Но ведь компонент может перераспределять память в процессе своей работы! Скажем, если к Вашему коду просто добавить:

Form.Caption := Form.Caption + "!!!"

то результат будет уже другим.



reonid   (2002-03-22 12:24) [9]

>Юрий Зотов
Конечно. Это всего лишь оценочная величина.
Просто это несколько более реалистичная оценка, нежели ИнстансСайз.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.037 c
3-29              Анатолий              2002-03-07 07:51  2002.04.01  
Запись данных в базу через IBX компоненты


1-221             greenrul              2002-03-19 21:24  2002.04.01  
Как строковое значение клавиши перегнать в её VirtualKeyCode значение (integer)


14-291            vic_vm                2002-02-16 23:49  2002.04.01  
Род Стивенс - Delphi Готовые алгоритмы


1-123             Mikhail               2002-03-20 18:37  2002.04.01  
Как отуродовать окошко Hint a


1-168             Solod                 2002-03-14 03:58  2002.04.01  
Не могу разобраться ...