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