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:     LConst := '';
      if not IsVar(L.ParamType) and L.IsConst then
        LConst := 'const ';
      Result := Result + Format('%s%s%s: %s%s; ', [LConst, LVar, LName,
        GetRealType(TypeOf(L.ParamType)), LD]);
    end;
    if Result.Length <> 0 then
    begin
  
negative.code:             [LFuncFullName, LFuncFullName]);
          LReturnStr := 'Result := ';
        end;
        // ȡָcduistring
        if LReturnType = 'PCDuiString' then
          LParams3 := LParams3 + '^';
        // Ϊstring
        LReturnType := Typestring(LReturnType, True);
  
        // class a
        AddDelphiClassAMethod('    %sfunction %s%s: %s;%s', [LClassFuncFlags, LFuncName, LParams2,
          LReturnType, LOverload]);
  