Форум: "Основная";
Текущий архив: 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]>Юрий Зотов
Конечно. Это всего лишь оценочная величина.
Просто это несколько более реалистичная оценка, нежели ИнстансСайз.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c