Datasnap服务器方法被调用时出现内存泄漏的处理方法

在使用Datasnap开发系统时，当客户端调用服务器的方式时，服务器端出现了内存泄漏，导致程序运行一段时间后异常退出，经过多次测试终于找到了原因，解决了问题，直接上代码。

1、由于方法需要返回多个参数，所有使用了 out 保留字；当客户端调用该方法时，服务器端将产生内存泄漏。

function TServerMethods1.ListTest_out(jsonInParam: string; out jsonOutResult:
    string): string;
begin
  jsonOutResult := 'out param';
  Result := 'true';
end;

2、将方法中的 out 保留字修改为 var 保留字时，服务器端不再内存泄漏

function TServerMethods1.ListTest_var(jsonInParam: string; var jsonOutResult:
    string): string;
begin
  jsonOutResult := 'out param';
  Result := 'true';
end;

至于为什么 out 保留字会产生内存泄漏，而 var 保留字不会产生内存泄漏的深层原因，留待以后再详细看Datasnap的源码。