anchor.diff:              [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]);
  
positive.code:   Result := LeftStrOf(':', Str).Trim;
  end;
  
  function TCppConvert.GetDelphiParams(AM: TMember; NoDefualt: Boolean): string;
  var
    L: TParam;
    LD, LVar, LConst, LName: string;
  
negative.code:     LConst := '';
      if not IsVar(L.ParamType) and L.IsConst then
        LConst := 'const ';
      Result := Result + Format('%s%s%s: %s%s; ', [LConst, LVar,
        LName,
        Typestring(GetRealType(TypeOf(L.ParamType)), CVDelphiStr), LD]);
    end;
    if Result.Length <> 0 then
    begin
  