anchor.diff:  {$IFDEF UNICODE}
     Result := TEncoding.Default.GetBytes(pvData);
   {$ELSE}
  +  // Ӧñһ²ֵ\0
     lvRawStr := pvData;
  -  SetLength(Result, Length(lvRawStr) + 1);
  +  SetLength(Result, Length(lvRawStr));
     Move(PAnsiChar(lvRawStr)^, Result[0], Length(lvRawStr));
  -  Result[Length(Result) -1] := 0;
   {$ENDIF}
   end;
   
  
positive.code:   Move(FData[0], PDCharW(Result)^, l shl 1); 
  end;
  
  initialization
  
  {$IFDEF MSWINDOWS}
  
  
negative.code: {$ENDIF}
  //  VCMemCmp: TMSVCMemCmp;
  {$ENDIF}
  
  var
    __DateFormat: TFormatSettings;
  
  procedure PrintDebugString(s:string);
  begin
  