求助：传参时类型不匹配，万分感谢！！
定义了个递归函数：
-------------------------------------------
interface
uses Windows,Classes,Messages;
type
PKLine=^TKLine;
function EMA(const s:integer;kgroup:TKLineGroup;kline:PKLine;const period:integer):single;
{...}
implementation
function EMA(const s:integer;kgroup:TKLineGroup;kline:PKLine;const period:integer):single;
var
{...}
begin
{...}
if (条件值) then {初始值是0吗？}
result:=... ;
else
result:=EMA(s,kgroup,tmpkline,period);
end;
-----------------------------------------------
引用时的代码：
-----------------------------------------------
var
sz399001m1:TKLineGroup;
pKLine:^TKLine;
implementation
{...}
begin
sz399001m1:= TKLineGroup.Create(self) ;
{...}
New(pKLine);
sz399001m1.KList.Add(pKLine);
pKLine.DIFs:=EMA(1,sz399001m1,pKLine,12); {!!!!!出错行!!!!!}
end;
{...}
-----------------------------------------------
编译时出错：Incompatible types ，怎么会存在类型不匹配呢？怎么解决？万分感谢！！
[解决办法]
pKLine.DIFs是什么类型
[解决办法]
EMA返回single类型， DIFs是什么类型，一致吗
[解决办法]
var
sz399001m1:TKLineGroup;
pKLine:^TKLine;//这行能编译通过吗？类型不匹配的是PKLine跟^TKLine,改成p: PKLine.
然后：
New(p);
sz399001m1.KList.Add(p);
p.DIFs:=EMA(1,sz399001m1,p,12);
