When running this code, the only way I see to quit is with ctrl+alt+del. And that does not crash here. (vfp7sp1)
>Can anybody tell me what's wrong with this code? Or, can anybody suggest a workaround?
>
>
>x=.T.
>On Shutdown x=.F.
>
>o=Createobject('MyClass')
>
>Define Class MyClass As Custom
> Function Init
> Do While x
> ? Datetime()
> =Inkey(1)
> EndDo
>EndDefine
>
>
>In either development time or run time, when we try to close the application, VFP crashes!
>
>TIA
Groet,
Peter de Valença
Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.