16,748
社区成员
发帖
与我相关
我的任务
分享
function GetRet_Function;
begin
result := 1000;
end;
procedure GetRet_Procedure(var iRet);
begin
iRet := 1000;
end;
begin
CallNextFunction(GetRet_Function);
end;
var
iRet: Integer;
begin
GetRet_Procedure(iRet);
CallNextFunction(iRet);
end;