Originally posted by Diplomat@10.5.2006, 21:51
И/или нечто подобное- на ПуреВасике:
Procedure TestFunction(x)
* * x=x*2
* * ProcedureReturn x
EndProcedure
End
|
Вот твой код:
Procedure TestFunction(x)
x=x*2
ProcedureReturn x
EndProcedure
End
Вот Мой:
ProcedureCDLL.l TestFunction(x)
x=x*2
ProcedureReturn x
EndProcedure
End
Этот работает, сам проверял.