Discussion:
[xHarbour-developers] Strange behavior
Enrico Maria Giordano
2015-03-01 11:55:34 UTC
Permalink
This is a sample (the 3rd SAY won't show):

#command MYSAY [<txt>];
[ROW <row>];
[COL <col>];
=> MySayText( <txt>, <row>, <col> )


FUNCTION MAIN()

PRIVATE cVar1 := "This is a test"

PRIVATE n := 1

CLS

@ 8, 0 SAY &( "cVar" + LTRIM( STR( n ) ) )

MYSAY ROW 10 COL 0 "" + &( "cVar" + LTRIM( STR( n ) ) )

// This SAY won't show
MYSAY ROW 12 COL 0 &( "cVar" + LTRIM( STR( n ) ) )

INKEY( 0 )

RETURN NIL


FUNCTION MYSAYTEXT( cTxt, nRow, nCol )

@ nRow, nCol SAY cTxt

RETURN NIL

EMG

--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG Music page: http://www.emagsoftware.it/emgmusic
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg

Loading...