Example of program with compilation failed on the line 15 :
error 18: Syntax error in 'SubX = @THIS.Subroutine'
Code: Select all
DIM SHARED SubX AS SUB ()
TYPE Test
Value AS INTEGER
DECLARE SUB InitSubX ()
DECLARE SUB Subroutine ()
END TYPE
SUB Test.Subroutine ()
' ...
' ...
END SUB
SUB Test.InitSubX ()
SubX = @THIS.Subroutine
END SUB
error 8: Undefined symbol, found 'THIS' in 'SubX = ProcPtr(THIS.Subroutine)'