Что-то не пойму как передать целое число по ссылке - чтобы потом в нем вернулся результат.
Со строкой получается. С целым - нет.
Код:
Procedure Test(*result.l)
PrintN("Test result="+Str(*result))
*result+5
PrintN("Test result="+Str(*result))
EndProcedure
Procedure Test2(*result.s)
PrintN("Test2 result="+*result)
*result+" Add"
EndProcedure
OpenConsole()
nTest.l=34
PrintN("")
PrintN(Str(nTest))
PrintN(Str(@nTest))
Test(@nTest)
PrintN(Str(nTest))
Text$ = "Hello"
PrintN("")
PrintN(Text$)
PrintN(Str(@Text$))
Test2(@Text$)
PrintN(Text$)
PrintN("Press Enter >")
Input()результат
Код:
34 4389604 Test result=4389604 Test result=4389609 34 Hello 3743376 Test2 result=Hello Hello Add Press Enter >
Что я делаю не так?