[xHarbour-developers] Strange behavior

2015-03-01 Thread Enrico Maria Giordano
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

[xHarbour-developers] Strange behavior with OLE and CLASSDATA

2008-08-28 Thread Enrico Maria Giordano
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