- Code: Select all Expand view RUN
#include "FiveWin.ch"
function Main()
Local aParams := hb_aParams() //recuperamos parametros
xbrowse(aParams)
return nil
#include "FiveWin.ch"
function Main()
Local aParams := hb_aParams() //recuperamos parametros
xbrowse(aParams)
return nil
#include "FiveWin.ch"
function Main(cParam)
Local aParams := hb_aParams() //recuperamos parametros
xbrowse(aParams)
return nil
Function Main(a, b, c)
msginfo(a)
msginfo(b)
msginfo(c)
#include "FiveWin.ch"
function Main( ... ) // OJO AQUI
Local aParams := hb_aParams() //recuperamos parametros
xbrowse(aParams)
return nil
// C:\FWH\SAMPLES\PARAMS.PRG
#include "FiveWin.ch"
FUNCTION Main()
TestApars( 'PARAM1', 'PARAM2', 'PARAM3', 'PARAM4', 'PARAM5' )
RETURN NIL
PROCEDURE TestApars( PA1, PA2, PA3, PA4, PA5 )
LOCAL nParam
LOCAL aParams := hb_AParams()
// ? PA1, PA2, PA3, PA4, PA5
/*
FOR nParam := 1 TO Len( aParams )
? nParam, aParams[ nParam ]
NEXT
*/
XBROWSE( aParams )
RETURN
// FIN / END
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 114 guests