Code:
Code: Alles auswählen
EnableExplicit
Macro AddGlobal(a)
Global.s a = a
dummy() ;<- nur da um einen fehler zu erzeugen damit man sieht was im macro passiert
EndMacro
AddGlobal(Hallo)
Code: Alles auswählen
Global.s Hallo = "Hallo"
Code: Alles auswählen
EnableExplicit
Macro AddGlobal(a)
Global.s a = a
dummy() ;<- nur da um einen fehler zu erzeugen damit man sieht was im macro passiert
EndMacro
AddGlobal(Hallo)
Code: Alles auswählen
Global.s Hallo = "Hallo"
Code: Alles auswählen
EnableExplicit
Macro DoubleQuote
"
EndMacro
Macro AddGlobal(a)
Global.s a = DoubleQuote#a#DoubleQuote
;dummy() ;<- nur da um einen fehler zu erzeugen damit man sieht was im macro passiert
EndMacro
AddGlobal(Hallo)
Debug Hallo
Code: Alles auswählen
DeclareModule TESTM
Macro DoubleQuote
"
EndMacro
Macro AddGlobal(a)
Global.s a = DoubleQuote#a#DoubleQuote
dummy() ;<- nur da um einen fehler zu erzeugen damit man sieht was im Macro passiert
EndMacro
EndDeclareModule
Module TESTM
EndModule
TESTM::AddGlobal(Hallo)
Debug Hallo
Ich würde auch sagen das es ein Bug ist.RSBasic hat geschrieben:Scheint ein Bug zu sein oder?
Code: Alles auswählen
DeclareModule TESTM
Macro DoubleQuote
"
EndMacro
Macro AddGlobal(a)
Global.s a = TESTM::DoubleQuote#a#TESTM::DoubleQuote
;dummy() ;<- nur da um einen fehler zu erzeugen damit man sieht was im Macro passiert
EndMacro
EndDeclareModule
Module TESTM
EndModule
TESTM::AddGlobal(Hallo)
Debug Hallo
Code: Alles auswählen
DeclareModule TestModule
Macro TestMacro1
Debug
EndMacro
Macro TestMacro2
TestMacro1 "Test string"
EndMacro
EndDeclareModule
Module TestModule
EndModule
TestModule::TestMacro2
Code: Alles auswählen
TestModule::TestMacro2
Code: Alles auswählen
TestMacro1 "Test string"
Code: Alles auswählen
DeclareModule TestModule
Macro TestMacro1
Debug
EndMacro
Macro TestMacro2
TestModule::TestMacro1 "Test string"
EndMacro
EndDeclareModule
Module TestModule
EndModule
TestModule::TestMacro2
Code: Alles auswählen
TestModule::TestMacro2
Code: Alles auswählen
TestModule::TestMacro1 "Test string"
Code: Alles auswählen
Debug "Test string"
Code: Alles auswählen
DeclareModule TestModule
Macro TestMacro1
Debug
EndMacro
Macro TestMacro2
TestMacro1 "Test string"
EndMacro
EndDeclareModule
Module TestModule
EndModule
TestModule::TestMacro2
Code: Alles auswählen
DeclareModule TestModule
Macro TestMacro2
Debug "Test string"
EndMacro
EndDeclareModule
Module TestModule
EndModule
TestModule::TestMacro2