Function1()
$ = T
Function2()
EndFunction

Function2
$= Z
EndFunction

Break on
Dim $SO
$SO = SetOption("Explicit","On")
$SO = SetOption("NoMacrosInStrings","On")
$SO = SetOption("NoVarsInStrings","On")
$SO = SetOption("WrapAtEOL","On")

? Function1 ?

Function Function1()
Dim $
$ = T
? "1st $ in F1 = " $ ?
Function2()
? "2nd $ in F1 = " $ ?
EndFunction

Function Function2()
Dim $
? "1st $ in F2 = " $ ?
$= Z
? "2nd $ in F2 = " $ ?
EndFunction

Break on

? Function1 ?

Function Function1()
$ = T
? "1st $ in F1 = " $ ?
Function2()
? "2nd $ in F1 = " $ ?
EndFunction

Function Function2()
? "1st $ in F2 = " $ ?
$= Z
? "2nd $ in F2 = " $ ?
EndFunction

dim $OldExplicitOption
$OldExplicitOption=SetOption("Explicit","Off")
;code generated by KiXforms designer
$OldExplicitOption=SetOption("Explicit",$OldExplicitOption)

Function 1()
 Dim $
  $ = 123
  2()
EndFunction

Function 2()
 Dim $
  $ = 456
EndFunction

Function 1()
 Dim $
  $ = 123
  2()
 $ ?
EndFunction

Function 2()
 Dim $
  $ = 456
EndFunction

Quote:

---

If you do not Dim it, most likely, it will be global.

---

Function 1()
  Global $1[2]
  $1 = 123,456,789
EndFunction

Function 2()
  Redim Preserve $1[3]
    $1[3] = 0
EndFunction

Quote:

---

setting a var with the name of udf is "illegal"

---

Function A()
  Global $1[2]
  $1 = 123,456,789
EndFunction

Function B()
  Redim Preserve $1[3]
    $1[3] = 0
EndFunction

Function DoOpen(Optional $OpenFile)

Dim $NumArray[55],$PnumArray[42],$Array[], $LBL_LNum[5], $LBL_HNum[5], $LBL_LastNum[6],$LastDraw[],$BTN_Details[5]
Dim $OF,$FH,$,$Val
Global $LBL_RNUM[5,6],$Count


If $OpenFile = ""
	$OF = $system.OpenFileDialog()
	$OF.DefaultExt = "txt"
	$OF.Filter = "Saved Prefs(*.txt)|*.txt"
	$OF.InitialDirectory = @scriptdir
	$OF.Title = "Save Preferences"
	$OF.AddExtension = "True"
	$OF.RestoreDirectory = "True"
	$OF.Showdialog
	$OPenFile = $OF.Filename ; Returning to console
EndIf

Quote:

---

in some version (the one where I last tried it) redimming a global was not possible.

---

Quote:

---

ERROR : duplicate definition of variable [output]!

---

Quote:

---

IMHO, $DoOpen is a local variable dimensioned in the function DoOpen (by the use of the Keyword "Function").

---

$=SetOption("Explicit","ON")
 
Global $Fun
$Fun="Foo"
 
"Before function  : '"+$Fun+"'"+@CRLF
$=Fun()
"After function   : '"+$Fun+"'"+@CRLF
 
Function Fun()
	"Start of function: '"+$Fun+"'"+@CRLF
	$Fun="Bar"
	"End of function  : '"+$Fun+"'"+@CRLF
EndFunction

Quote:

---

Before function : 'Foo'
Start of function: ''
End of function : 'Bar'
After function : 'Foo'

---

If NOT @LOGONMODE
	Break On
EndIf
Dim $SO
$SO = SetOption("Explicit","On")
$SO = SetOption("NoMacrosInStrings","On")
$SO = SetOption("NoVarsInStrings","On")
$SO = SetOption("WrapAtEOL","On")

Global $ReturnArray
;Dim $ReturnArray
$ReturnArray = "NotAnArray"
? $ReturnArray
?

$SO = ReturnArray(5)
Dim $Element
For Each $Element In $SO
	? $Element
Next
?

? $ReturnArray
?

;; If $ReturnArray was global, this should work
;For Each $Element In $ReturnArray
;	? $Element
;Next

;; Test to see which is global
;? $TestLocal
;? $TestGlobal
? $TestGlobal[0]
? $TestGlobal[1]
?

? "KiX Executable: " + @SCRIPTEXE
? "KiX Version: " + @KIX
?

Function ReturnArray($i)
	Dim $TestLocal
	$TestLocal = "Local Variable"
	;Global $TestGlobal
	;$TestGlobal = "Global Variable"
	Global $TestGlobal[0]
	$TestGlobal[0] = "Global Variable First Value"
	ReDim Preserve $TestGlobal[1]
	$TestGlobal[1] = "Global Variable Second Value"
	;? $TestGlobal[0]
	;? $TestGlobal[1]
	Dim $j
	For $j = 0 to $i step 1
		ReDim preserve $ReturnArray[$j]
		$ReturnArray[$j] = $j
		;? $ReturnArray[$i]
	Next
	;?
EndFunction

;Names of Functions should not start with a number

;? 2
;? 2b

;Function 2()
;	;Dummy
;EndFunction

;Function 2b()
;	;Dummy
;EndFunction