delphi有引用传参的吗?
[color=#00CCFF]private
m_Img: array of TImage; //TImage控件动态数组


function FreeNode(): Integer; //怎样可以将动态数组当引用传进来？
var
i: Integer;
begin

for i := 0 to Length(m_Img) - 1 do //释放动态数组
begin
if (m_Img[i] <> nil) then
begin
m_Img[i].Free;
m_Img[i] := nil;
end;
end;

SetLength(m_Img, 0); //清空m_Img动态数组

Result := 1;
end;[/color]


[解决办法]
您为何你不放在delphi论坛？
[解决办法]
function FreeNode(var LImg: array of TImage): Integer
[解决办法]
把数组做成类传递
[解决办法]

Delphi(Pascal) code

Finalize(Image);