Code: Select all
DeclareOverload
Prototype.i Test (a.i, b.i) As Test_I()
Prototype.f Test (a.f, b.f) As Test_F()
Prototype.s Test (a.s, b.s) As Test_S()
EndDeclareOverload
Procedure.i Test_I (a.i, b.i)
ProcedureReturn a + b
EndProcedure
Procedure.f Test_F (a.f, b.f)
ProcedureReturn a + b
EndProcedure
Procedure.s Test_S (a$, b$)
ProcedureReturn a$ + b$
EndProcedure
Debug Test (5, 6) ; result is the integer 11
Debug Test (1.2, 3.3) ; result is the float 4.5
Debug Test ("Hello", " World") ; result is the string "Hello World"