#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
Result:
This is a test
This is a test
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
------------------------------------------------------------------------------
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
