anchor.diff:    Result := Delphi_StdStringPtrMap_Find(Self, PChar(key), optimize);
   end;
   
  +procedure CStdStringPtrMap.Free;
  +begin
  +  CppDestroy;
  +end;
  +
   function CStdStringPtrMap.Insert(key: string; pData: Pointer): Boolean;
   begin
     Result := Delphi_StdStringPtrMap_Insert(Self, PChar(key), pData);
  
positive.code: 
  // ѡЩʾȷԪ
  {$HINTS OFF}
  
  interface
  
  
negative.code:     function GetData: Pointer;
      function GetAt(iIndex: Integer): Pointer;
    public
      class function CppCreate(iElementSize: Integer; iPreallocSize: Integer = 0): CStdValArray; deprecated 'use Create';
      procedure CppDestroy; deprecated 'use Free';
      class function Create(iElementSize: Integer; iPreallocSize: Integer = 0): CStdValArray;
      procedure Free;
      procedure Empty;
      function IsEmpty: Boolean;
      function Add(pData: LPCVOID): Boolean;
  