anchor.diff:    FCppMethods.Free;
     FCppSourceFile.Free;
     FCppHeadFile.Free;
  -  FDelphiTypes.Free;
  +  FParamReturnList.Free;
     FParamNameConvertList.Free;
     FTypeConvertList.Free;
     FMemberList.Free;
  
positive.code:   if AM.OverloadName <> '' then
      LOverload := ' overload;';
    LParams := GetDelphiParams(AM, True);//LParams2;
    // Ǿ̬ǹ캯
    if (not AM.IsStatic) and (not AM.IsConstructor) then
    begin
  
negative.code:     begin
        LReturnType := GetRealType(TypeOf(AM.ReturnType, True));
        LFuncFullName := DeleteSymbol(Format('Delphi_%s_%s%s', [AClassNoC, LFuncName, AM.OverloadName]));
  
        if AM.IsNeedParamReturn then
        begin
          FDelphiImportA.AddFormat('procedure %s%s; cdecl;', [LFuncFullName, LParams]);
          FDelphiImportB.AddFormat('procedure %s; external DuiLibdll name ''%s'';',
              [LFuncFullName, LFuncFullName]);
          LReturnStr := '';
        end else
        begin
          FDelphiImportA.AddFormat('function %s%s: %s; cdecl;', [LFuncFullName, LParams, LReturnType]);
          FDelphiImportB.AddFormat('function %s; external DuiLibdll name ''%s'';',
              [LFuncFullName, LFuncFullName]);
          LReturnStr := 'Result := ';
        end;
        // class a
        AddDelphiClassAMethod('    %sfunction %s%s: %s;%s', [LClassFuncFlags, LFuncName, LParams2,
          LReturnType, LOverload]);
        // class b
        AddDelphiClassBMethod('%sfunction %s.%s%s: %s;', [LClassFuncFlags, AClass, LFuncName, LParams21,
          LReturnType], '%s%s%s;', [LReturnStr, LFuncFullName, LParams3], AM);
      end;
    end;
  end;
  