This is a sample (the 3rd SAY won't show):
#command MYSAY [];
[ROW ];
[COL ];
=> MySayText( , , )
FUNCTION MAIN()
PRIVATE cVar1 := "This is a test"
PRIVATE n := 1
CLS
@ 8, 0 SAY &( "cVar" + LTRIM( STR( n ) ) )
MYSAY ROW 10 COL
The following sample
FUNCTION MAIN()
LOCAL oTest := TTest()
oTest:oRs = CREATEOBJECT( "ADODB.Recordset" )
RETURN NIL
#include "Hbclass.ch"
CLASS TTest
CLASSDATA oRs
ENDCLASS
gives
Unrecoverable error 9000: Destructors disabled! Destructor of class:
'TOLEAUTO' can't be e
2 matches
Mail list logo