Проверить существование объекта

[Heneken87]

Вы хоть читали что ТС спрашивал? Или вы тут пример комментируете?

[Heneken87]

Сообщение от cyberdev

Это включает отображение отчета об утечках памяти. То есть, наоборот, когда указателей нет, а сами объекты остались. Либо и то и другое.

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

[min@y™]

Сообщение от cyberdev

Вот я и хочу понять как правильно писать программы на Делфи, при том, что за сторонних разработчиков я ответственности не несу :-)

Никогда не юзай чужие DCU. У меня за всю карьеру не была ни единого случая, когда невозможно было без них обойтись.

[Heneken87]

Сообщение от min@y™

Писать код, внутри которого понадобится такая проверка - это, имхо, говнокодинг.
Но формально, для локальных объектов, в FreeAndNil() нет смысла.

x:= TMyClass.Create();
try
  // блаблабла
finally
  x.Free();
end;

FreeAndNil() нужен только для глобальных переменных и/или полей других объектов, т.е. тех ячеек памяти, которые неоднократно будут использоваться и после деструкторов объектов, на которые они указывают.

Доклад окончил.

Никто и не спрашивал о формальностях, а также никто не скажет о говнокоде, без самого кода..зачем это нужно автору непонятно. В теме не было вопроса о том, как удалять объект... Был вопрос как проверить.

[min@y™]

Сообщение от Heneken87

Никто и не спрашивал о формальностях, а также никто не скажет о говнокоде, без самого кода..зачем это нужно автору непонятно. В теме не было вопроса о том, как удалять объект... Был вопрос как проверить.

А я и не спорю.

[cyberdev]

Написал следующую функцию для проверки:

function ObjectCheck(obj: TObject): Boolean;
begin
  Result := False;
  if obj = nil then
    Exit;
  try
    obj.ClassName();
  except
    on EAccessViolation do
      Exit;
  end;
  Result := True;
end;

Пробую вызвать любой метод объекта между try и except. Если память очищена, а указатель не nil, то произойдет AV. Как это работает не проверял. Но, в любом случае, AV будет вылетать после запуска программы из среды разработки, а так же во время отладки. Таким образом, осталось отключить вылетание мессагов на время, когда будет возникать AV. Как это сделать в Делфи?

[Filka]

https://stackoverflow.com/questions/...-already-freed

[min@y™]

Сообщение от cyberdev

Если память очищена, а указатель не nil, то произойдет AV.

А вот тут ты можешь обломаться, чувак.

[Black Fregat]

Сообщение от cyberdev

К примеру, в C++ есть ключевое слово delete. Объект удаляется, а указатель устанавливается в NULL.

Мне кажется, Вы что-то путаете. Ни один указатель в С++ принудительно в нуль не устанавливается. Не говоря уже о том, что их может быть несколько..

[cyberdev]

Сообщение от Filka

https://stackoverflow.com/questions/...-already-freed

Функции из https://stackoverflow.com/questions/...-already-freed

function ValidateObj(Obj: TObject): Pointer;
// see { Virtual method table entries } in System.pas
begin
  Result := Obj;
  if Assigned(Result) then
    try
      if Pointer(PPointer(Obj)^) <> Pointer(Pointer(Cardinal(PPointer(Obj)^) + Cardinal(vmtSelfPtr))^) then
        // object not valid anymore
        Result := nil;
    except
      Result := nil;
    end;
end;

и http://hallvards.blogspot.com/2004/0...id-object.html

function ValidateObj(Obj: TObject): Pointer;
type
  PPVmt = ^PVmt;
  PVmt = ^TVmt;
  TVmt = record
    SelfPtr : TClass;
    Other   : array[0..17] of pointer;
  end;
var
  Vmt: PVmt;
begin
  Result := Obj;
  if Assigned(Result) then
    try
      Vmt := PVmt(Obj.ClassType);
      Dec(Vmt);
      if Obj.ClassType <> Vmt.SelfPtr then
        Result := nil;
    except
      Result := nil;
    end;
end;

Функции довольно громоздкие. Но по прежнему ни в одной нет отключения вылетов мессагов, во время вызова.