Здесь вызывается функция
m.top.GlobleURL = GetAuthData() ' Call Read Function in Globle Variable
print "Read URL : " + m.top.GlobleURL
SetAuthData(Serverurl) ' Call write Function in Seturl
'Здесь функция чтения
Function GetAuthData() As Dynamic
' reg = CreateObject("roRegistry")
sec = CreateObject("roRegistrySection", "Authentication")
' print "section : " + Authentication
if sec.Exists("Authentication")
print "Read URL : " + m.top.GlobleURL
print " ****************** DATA :" + m.top.GlobleURL
return sec.Read("Authentication")
'return sec.Delete("Authentication") ' Here not override concept so compalsary delete first and after again second URL Store pannel.brs and hud.brs both file
print "***********************GetAuthData************************"
endif
return invalid
End Function
Здесь функция записи
Function SetAuthData(Serverurl As String) As Void
' reg = CreateObject("roRegistry")
sec = CreateObject("roRegistrySection", "Authentication")
m.top.GlobleURL = Serverurl
' if not m.top.GlobleURL = Serverurl
sec.Write("Authentication", m.top.GlobleURL)
?"key for the URL" sec.GetKeyList()
Print "Write URL :" + m.top.GlobleURL
' end if
print "***********************SetAuthData************************"
' Flush(true)
End Function
вы всегда передаете с аргументом в функцию в это время вызова, передаете в качестве аргумента и не передаете никакого аргумента при записи функции, затем просто объявляете одну переменную и инициализируете ее.