so, something like this...

Code:

Function Const($Constname,$ConstData)

	Dim $exit,$

	$exit = setoption("NoVarsInStrings","on")

	$ = execute('Function ' + $constname + ' $' +  $constname + '=' +  $constdata + ' endfunction')

	$exit = setoption("NoVarsInStrings","$exit")

	exit($)

endfunction


a example...

Code:

Const("allways1",1)

? "The value of allways1 = " + allways1




Edited by Bryce (2004-05-12 07:11 PM)