Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

Освобождение памяти   Найти похожие ветки 

 
Просто прохожий   (2002-08-16 21:57) [0]

TMyClass = class
FCount : Integer;
FItems : array of Integer;
constructor Create (Count : Integer);
.......................................
end;

constructor Create (Count : Integer);
begin
inherited Create;
FCount := Count;
SetLength (FItems, FCount);
end;


Вопрос: при уничтожении объекта этого класса вся память, занимаемая им, освободится автоматически, или в деструкторе нужно дополнительно писать: Finalize (FItems), а уже потом вызывать унаследованный деструктор?


 
Anatoly Podgoretsky   (2002-08-16 22:11) [1]

Достаточно FItems := nil


 
Просто прохожий   (2002-08-16 22:20) [2]

Так значит всё-таки надо деструктор дополнительно описывать? Унаследованного недостаточно?


 
Anatoly Podgoretsky   (2002-08-16 22:55) [3]

Ну так раз в конструкторе захватываешь ресурсы, то больше негде их освободить


 
Юрий Зотов   (2002-08-16 22:58) [4]

> Вопрос: при уничтожении объекта этого класса вся память,
> занимаемая им, освободится автоматически,

Да, занимаемая им САМИМ - освободится автоматически. В том числе, освободятся 4 байта, которые занимает УКАЗАТЕЛЬ FItems. Но не освободятся ТЕ 4*Count байт, которые занимает ТЕЛО массива. Поскольку ЭТА память к САМОМУ объекту никакого отношения не имеет.

Вот и выходит, что деструктор нужен.



Страницы: 1 вся ветка

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.006 c
3-95732
Ангелика
2002-08-09 15:38
2002.08.29
Нужно скопировать из текст.файла в таблицу dbf значения...


3-95680
Aleksandr
2002-08-08 14:26
2002.08.29
При добавке индекса к таблице ругается...


1-95876
w_devil
2002-08-17 16:38
2002.08.29
как отловить WM_QUIT ?


1-95861
Tahion
2002-08-17 09:54
2002.08.29
Как можно сделать кнопку как в фотошопе?


4-96028
BlackRaven
2002-06-18 14:54
2002.08.29
Bitmap и RGN?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский