Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];

Вниз

Область видимости объектов   Найти похожие ветки 

 
voodoo_alex   (2002-06-07 12:07) [0]

Народ вот такая возникла ситуация:
Есть 2 объекта TResultSet и TResultSetList.
У второго есть поле SetList : TList и метод Add

procedure TResultSetList.Add;
begin
CurrentRow := SetList.Add(TResultList.Create);
end;

в программе есть следующие строки:
.....
var
MainResultSetList : TResultSetList;
....
....
MainResultSetList.Add;
Name1 := EditName1.Text;
....

После первой команды MainResultSetList.SetList.Items[0]^ - указывает на нормальный новосозданный объект класса TResultSet.

После вырполнения следующей строчки (неважно какая, лишь бы там Этот MainResultSetList.SetList.Items[0]^ не использовался) по адресу где новосозданный объект лежал пишется куча мусора. Я так понял что как бы объект вышел из области видимости и дельфи его бабахнул. Ну а как тогда быть в такой ситуации ???

Помогите пожалуйста, вторую ночь не сплю ;(((


 
AFROLOV   (2002-06-07 12:12) [1]

надо не через var - объект создается в стеке. При выходе из области видимости объект будет удален или это может еще раньше сделать оптимизатор.
Такие веши надо делать через new и dispose.


 
voodoo_alex   (2002-06-07 12:25) [2]

То есть

Add:
T := New(TResultSet);
T.Create;
SetList.Add(T)

destructor:
for i := 0 to (SetList.Count-1) do
Dispose(SetList.Items[i]);

Я правильно понял ?


 
Anatoly Podgoretsky   (2002-06-07 12:27) [3]

DВ приведенном коде нет ошибок, ошибка не в приведенном коде


 
Digitman   (2002-06-07 12:35) [4]

>voodoo_alex

Между терминами "область видимости" идентификатора и "время жизни" объекта/переменной (см. "Делфи его бабахнул") нет ничего общего.

см. Anatoly Podgoretsky © (07.06.02 12:27)


 
voodoo_alex   (2002-06-07 12:51) [5]

я просто не так выразылся, имел в виду время жизни конечно


 
Digitman   (2002-06-07 13:17) [6]

Раз не так выразился, будь любезен прокомментировать это :

>>в программе есть следующие строки:
>>.....
>>var
>> MainResultSetList : TResultSetList;


Программа - штука растяжимая, и в данном случае время жизни переменной MainResultSetList напрямую зависит от того, ГДЕ "в программе есть следующие строки".
Посему приводи по возможности полный код (полные описания всех подпрограмм, использующих эту переменную), если теряешься в понимании происходящего


 
voodoo_alex   (2002-06-07 14:11) [7]

я не терялся а спрашивал правильный способ, но на будушее учту ;)
а вобще подсказали делать TResultSetList = class(TObjectList)
вот такой способ и буду реализовать ;)
Спасиб ;)



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

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

Наверх





Память: 0.46 MB
Время: 0.007 c
1-65092
Termik
2002-04-23 10:00
2002.06.20
Как заставить Делфи выполнить мат. выражение ?


1-65101
Демон
2002-06-07 01:17
2002.06.20
2 вопроса про Таймер!!!


3-64965
mrcat
2002-05-28 11:16
2002.06.20
Бинарные значения в SQL


3-64948
Hunter
2002-05-27 19:15
2002.06.20
uniqueidentifier


3-64947
Creater
2002-05-27 17:32
2002.06.20
Работа с IBX





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский