anchor.diff:      procedure AddDelphiRecord(const Str: string); overload;
       procedure AddDelphiDefualtHeader;
       procedure AddDelphi(const AClass, AClassNoC: string; AM: TMember);
  -    function GetDelphiParams(AM: TMember; NoDefualt: Boolean): string;
  -    function GetDelphiParamsNoType(AM: TMember): string;
  +    function GetDelphiParams(AM: TMember; NoDefualt, CVDelphiStr: Boolean): string;
  +    function GetDelphiParamsNoType(AM: TMember; ACVDelphi: Boolean = False): string;
       procedure AddDelphiClassAMethod(const Fmt: string; Args: array of const);
       procedure AddDelphiClassBMethod(const Fmt: string; Args: array of const;
         const CallFmt: string; CallArgs: array of const; AM: TMember);
  
positive.code:   uOthers;
  
  
  
  constructor TCppConvert.Create;
  begin
  
negative.code:   end;
  end;
  
  function TCppConvert.GetDelphiParamsNoType(AM: TMember; ACVDelphi: Boolean): string;
  var
    L: TParam;
  begin
  