使用RemObject遇到的问题

在服务函数中用Var用参数关键字时，比如

function  TEMISLogic.UpdateMenu( var  OldFields: TEMISFields): Boolean;
begin
  Result : =  False;
  try
    Result : =  FEMISS.UpdateMenu(OldFields);
  except
    on E : Exception  do
     begin
      FEMISCommon.ErrorDlg(e.Message);
      Exit;
     end ;
   end ;
end ;

参数中TEMISFields为RemObject的Array类型，程序运行没有任何问题一切ＯＫ，但就是有内存泄漏，一直找原因就是找不到，后来突发奇想，再添一个变量代码如下

function  TEMISLogic.UpdateMenu( var  OldFields: TEMISFields): Boolean;
var
  Fields: TEMISFields;
begin
  Result : =  False;
  try
    Fields := OldFields;
    Result : =  FEMISS.UpdateMenu(Fields);
    FreeAndNil(Fields);
  except
    on E : Exception  do
     begin
      FEMISCommon.ErrorDlg(e.Message);
      Exit;
     end ;
   end ;
end ;

红色部分是后来添加的，没想到这样就解决了内存泄漏，不知道有没有高手跟我说说原因。

转载于:https://www.cnblogs.com/sonicit/archive/2008/01/19/1045531.html