Question

delphi 自定义一个有四个输入参数，有两个相同类型的返回结果的函数，如何定义

输入参数EDate,SDate:TDatetime;i;k:Integer 输出参数BSDate,BEDate:TDatetime

Answer 1

比如你想写个函数func，按照你的说法，在delphi中应该定义为procedure而非function，具体写法如下：
procedure func(EDate,SDate:TDatetime;
i, k:Integer;
var BSDate,BEDate:TDatetime);

追问

直接定义一个function ...（这里的是输入）外面的是输出。不是应该这样吗？

追答

因为function只能返回一个值，而你需要的是两个，你可以再写一个函数func2，其中一个返回BSDate, 另一个返回BEDate。但这样太麻烦了，而用一个procedure就可以解决了。只要在参数前加个var，表示该参数的值是可以被procedure改变的，因为机制上加var的参数是一个指向该参数的引用，而非是其值的一个副本，所以可以被所引用的procedure修改。

本质上，function和procedure其实是一回事情，在delphi中，程序员往往更喜欢用procedure，其中原因就是因为procedure可同时“返回”多个值，以多种不同类型，比较灵活。