Проверить выделена ли память под объект

[Sibedir]

Да будет так.

[Пепел Феникса]

а помоему здесь отлично подходят счетчики ссылок.

[Sibedir]

а помоему здесь отлично подходят счетчики ссылок.

А можете на пальцах объяснить, как они тут помогут.

[Utkin]

Сообщение от Пепел Феникса

а помоему здесь отлично подходят счетчики ссылок.

Тоже вариант. Однако, объясните применительно к данной ситуации...

[JTG]

При обращении по указателю вставить вот такую монструозную конструкцию:

procedure SomeThread.SomeProc;
begin
...
  CriticalSection.Enter;
  try
      If TObject(SomePointer).InheritsFrom(TSibObject) then DoSomething; //объект по указателю существует и является потомком TSibObject
  except
      on EAccessViolation do SomePointer := nil;
  end;
  CriticalSection.Leave;
end;

Костыли, некрасиво. Пересматривай логику работы программы, под список указателей отдельный менеджер + счётчик ссылок если нужно хранить экземпляр, пока на него существует хоть 1 указатель.

[Utkin]

Я так понял ТСа, что объект могут удалить, даже когда на него еще посылают другие... Именно поэтому ему надо знать существует ли объект...

[GunSmoker]

Интерфейсы для кого придумали?

При обращении по указателю вставить вот такую монструозную конструкцию

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

Но если есть еще один указатель на этот же объект, и нет возможности/желания следить за инициализацией/уничтожением объектов, то возникает проблема.

Есть подозрение на X, Y, Z. Вы скажите, кто это такие "ещё один указатель" и откуда они берутся.

[Пепел Феникса]

объявление

type
 TRefObject=class
  private
   FRefCount:integer;
  public
   constructor Create;
   procedure Release;
   function Get:TRefObject;
   property RefCount:integer read FRefCount;
  end;  

constructor TRefObject.Create;
begin
 inherited Create;
 FRefCount:=1;
end;

procedure TRefObject.Release;
begin
 Dec(FRefCount);
 if(FRefCount=0)then Free;
end;

function TRefObject.Get:TRefObject;
begin
 Inc(FRefCount);
 Result:=Self;
end;

var
 R1,R2,R3:TRefObject;

применение

R1:=TRefObject.Create;//1
R2:=R1.Get;//2
R3:=R2.Get;//3
//в итоге у нас три ссылки на один обьект, но обьект знает сколько на него ссылок
R3.Release//2
R1.Release//1
R2.Release//0, ссылок на обьект не осталось, обьект уничтожился

в вашем случае придется просто заменить присваивание, присваиванием с увеличением счетчика ссылок(у меня это метод Get)

ну и в догонку

procedure ReleaseAndNil(var o:TRefObject);
begin
 o.Release;
 o:=nil;
end;

[JTG]

У ТС задача обратная — обнулить все указатели на экземпляр объекта, как только тот перестанет существовать

[GunSmoker]

обнулить все указатели на экземпляр объекта, как только тот перестанет существовать

Как не сложно догадаться, ни к чему хорошему это не приведёт. Это всё равно что выдернуть из под человека лестницу, когда он красит стену. Или выгрузить DLL во время выполнения функции в ней.

Почему я и сказал про X, Y, Z. ТС чем-то не тем занимается.