Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Указатели на уничтоженные объекты

Константинов © (2004-10-15 21:28:00)
Примерно такая конструкция:

PDataRec = ^TDataRec
TDataRec = record
ObjectA : TObject;
ObgectB : TObject;
ObjectC : TObject;
end;
var
List : TList;
DR : PDataRec;
A,B,C : TObject;
begin
GetMem(DR,SizeOF(TDataRec));
A := TObject.Create;
B := TObject.Create;
C := TObject.Create;
DR.ObjectA := A;
DR.ObjectB := B;
DR.ObjectC := C;
List.Add(DR);
...
List.Add(DR);
... короче несколько элементов списка ссылаются на один из объектов

A.Free; !!!

в списке List остался указатель на уничтоженный объект
и этот указатель <> nil

Delphi запросто читает данные из ячеек по указанному адресу, хотя
объект уже не существует.

Как с этим бороться?
Единственное, что приходит на ум, сканировать List на наличие указателя на объект А
перед его уничтожением... и присваивать ему nil

А если количество элементов списка несколько сотен тысяч!?
будут тормоза еще те...

Посоветуйте, что-нибудь поинтереснее...

Мирон (2004-10-16 11:13:00) [1]

> Мирон © (16.10.04 10:48) [2][Ответить]

> begin...end © (16.10.04 10:59) [3

Сорри, автору это не поможет

begin...end (2004-10-16 10:59:00) [2]

> [2] Мирон © (16.10.04 10:48)

FreeAndNil()

Мирон (2004-10-16 10:48:00) [3]
А если в лоб:

A.Free;
A := nil;

panov (2004-10-15 21:31:00) [4]
Создать наследника TList и с объектами работать как с элементами TList

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »