使用 Harbour/函数编程进行应用程序开发

harbour 函数类似如下所示。

FUNCTION calculateSum(a,b)
LOCAL sum := a + b
RETURN sum

如果要使用以上函数 calculateSum()，则简单操作如下
sumTwoNumbers := calculateSum(2,4) //值 6 已保存到 sumTwoNumbers
? sumTwoNumbers //打印 sumTwoNumbers 的值

分步说明以生成上述结果
-在 C:\hb30\tests 目录中创建一个名为 SumTwoNumbers.prg 的文件并打开此文件。
-将以下代码放入此文件中

******************SumTwoNumbers.prg
PROCEDURE Main()
Local sumTwoNumbers := calculateSum(2,4)
? sumTwoNumbers
RETURN

FUNCTION calculateSum(a,b)
LOCAL sum := a + b
RETURN sum
*****************

-C:\hb30\bin\hbmk2.exe SumTwoNumbers.prg
-SumTwoNumbers.exe //如果正确，将看到数字 “6”