Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как проверить существование объекта?

Автор: Гость_Игорь 20.6.2005, 23:36

В общем возможна такая ситуация :

Код


var O : TObject;
O:= TObject.Create;
O.Free;

О <> nil, но в то же время реально объекта уже не существует.
Как проверить валидна ли ссылка О ?
if Assigned(О) не помогает.
На крайняк можно try-except использовать конечно, но вдруг
есть более элегантное решение ?

Заранее спасибо.

Автор: p0s0l 21.6.2005, 00:23

Лучше вместо O.Free делать FreeAndNil(O)

Автор: Snowy 21.6.2005, 09:13

Код


var
  O : TObject;    
begin
  O:=nil;
  O:= TObject.Create;
  if Assigned(O) then ...
  O.Free;

Автор: p0s0l 21.6.2005, 15:37

Snowy

Цитата

if Assigned(О) не помогает.

Похоже, Игорю нужно проверить валидность ссылки не до O.Free, а после...

Автор: Snowy 21.6.2005, 15:51

Цитата(p0s0l @ 21.6.2005, 15:37)

Похоже, Игорю нужно проверить валидность ссылки не до O.Free, а после...

Извиняюсь, что-то я стал читать на бегу.
Слова "уже" не подметил...

Цитата(p0s0l @ 21.6.2005, 00:23)

FreeAndNil(O)

Код


  O.Free; O:=nil;

Смотрится более неаккуратно, но полученный в итоге код мне больше нравится, чем

Код


procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;

Как-то мне непонятна логика писавшего эту функцию...

Автор: Гость_Игорь 21.6.2005, 19:35

Идея понятна.
Всем спасибо.

Что качается текста FreeAndNil, то действительно
не очень смотрится.

Вобщем, я думаю, проще переписать эту процедуру.