Форум: "Основная";
Поиск по всему сайту: 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.024 c
3-48              Gurban                2002-03-07 13:17  2002.04.01  
Поле Date в Paradox


3-1               volodya_              2002-03-05 09:17  2002.04.01  
Как в Qreport-е посчитать сумму значений по каждой странице?


4-342             kiber                 2002-01-31 01:17  2002.04.01  
win api


4-341             Валера из Омска       2002-01-30 08:05  2002.04.01  
Файловая система


4-367             mishaa1               2002-01-31 01:21  2002.04.01  
win api