RO SDK 9.0.97.1245 带源码测试版 支持手机开发 带破解 D7-RAD10.1

admin

RO 接口中任何 对象 做 var 都会 变成 2 个对象
假设接口如下：
procedre TestVar(var Aval:TOjbect);

调用代码。
begin
  Aval1: TObject;
  Aval2: TObject;
begin
  Aval1 := TObject.Create;
  Aval2 := Aval1;
  try
    //Some Code;
    TestVal(AVal2);
    //Some Code;
  fianlly
    if (Aval2 <> Aval1) and (Aval2 <> nil) then
      FreeAndNil(AVal2);
    FreeAndNil(AVal1);
  end;
end;

另外 也可以 修改接口为：
procedre TestVar(in Inval:TOjbect; out Outval: TObject);

调用代码。
begin
  Aval1: TObject;
  Aval2: TObject;
begin
  Aval1 := TObject.Create;
  Aval2 := nil;
  try
    //Some Code;
    TestVal(AVal1, Aval2);
    //Some Code;
  fianlly
    if (Aval2 <> nil) then
      FreeAndNil(AVal2);
    FreeAndNil(AVal1);
  end;
end;