Error 1733

On Wed, 26 May 2004 03:11:56 -0600, "Zorrillo Visual"
wrote:

No se encuentra la definición de clase "nombre" (Error 1733).

Como puedo obtener un valor logico si existe o no una clase???

Para que NO me regrese este error:

oMy = CREATEOBJECT("MY.Application")

TRY
llError = .F.
oMy = CREATEOBJECT("MY.Application")
CATCH
llError = .T.
ENDTRY
IF llError
MESSAGEBOX("Clase no instanciada",16,"Error")
ENDIF



En versiones anteriores a VFP 8.0:

ON ERROR llError = .T.
oMy = CREATEOBJECT("MY.Application")
IF llError
MESSAGEBOX("Clase no instanciada",16,"Error")
ENDIF



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(Address scrambled with ROT-13)