Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Release Class successfully
Message
 
 
À
01/03/2002 08:59:12
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00626915
Message ID:
00626935
Vues:
9
No, both don't work. RELEASE CLASS is only short for RELEASE CLASSLIB.
RELEASE PROCEDURE displays an error "Procedure file ... not found" (although the file exists, but the procedure is not set to this file.)



>Christian,
>
>Try putting in a "RELEASE CLASS PreviewWindow" before the erases. You may also try using a "RELEASE PROCEDURE (lcDefFile)". Hopefully, this will take care of your problem.
>
>>Hello,
>>
>>I try to do the following:
>>
lcDefFile = FORCEEXT(SYS(2015), "PRG")
>>*
>>TEXT TO lcDefineClass TEXTMERGE NOSHOW
>>	DEFINE CLASS PreviewWindow AS Form
>>		SHOWWINDOW = 1
>>		DESKTOP = .T.
>>	ENDDEFINE
>>ENDTEXT
>>STRTOFILE(lcDefineClass, lcDefFile)
>>*
>>loPreviewWindow = NEWOBJECT("PreviewWindow", lcDefFile)
>>loPreviewWindow.SHOW()
>>*-- some work done here			
>>*-- Here I need to find the proper way to close the
>>*-- references.
>>*-- I try to get rid of the outstanding references but
>>*-- this does not work.
>>RELEASE loPreviewWindow
>>*-- This will give an error: Procedure file ... not found.
>>*-- RELEASE CLASSLIB (FORCEEXT(lcDefFile, "FXP"))
>>ERASE (lcDefFile)
>>*-- The next one gives an error, Outstanding references...
>>ERASE (FORCEEXT(lcDefFile, "FXP"))
>>Can somebody help me here?
Christian Isberner
Software Consultant
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform