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

← →
Константинов © (2004-10-15 21:28) [0]

Примерно такая конструкция:

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

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

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

← →
panov © (2004-10-15 21:31) [1]

Создать наследника TList и с объектами работать как с элементами TList

← →
Мирон © (2004-10-16 10:48) [2]

А если в лоб:

A.Free;
A := nil;

← →
begin...end © (2004-10-16 10:59) [3]

Указатели на уничтоженные объекты Найти похожие ветки