Re: How To Check if an object is created (instantiated)?

alanglloyd@[EMAIL PROTECTED]
 schrieb:
> In a check function you set the Result to true, and then access a
> property or a method of a TMyClass instance. You absorb any exception
> in a try / except clause in which you set the Result to false.
> 
> Like ...
> 
> function TForm1.CheckMyClassInstantiated(Instance : TMyClass) :
> boolean;
> var
>   i : integer;
> begin
> {$O-}    // forces access to Item even though it is not used
>          // Delphi optimisation would otherwise not compile the access
> code
>   Result := true;
>   try
>     i := Instance.Item;
>   except
>     on Exception do
>       Result := false;  // if exception caused by no instance, then
> result is cleared
>   end;
> end;

No, please don't. That's a very ugly hack and completely unnecessary. 
Please read the other posts from Locke and me.

-- 
Gib mir eine Lederunterhose und ein Keyboard - man lebt nur einmal!

....und wech
          Danny <dannys9 (at) gmx (dot) de>