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: 
  function DateTimeString(pvDateTime:TDateTime): string; {$IFDEF HAVE_INLINE} inline;{$ENDIF}
  function NowString: String; {$IFDEF HAVE_INLINE} inline;{$ENDIF}
  
  function tick_diff(tick_start, tick_end: Cardinal): Cardinal;
  
  
negative.code:   Move(FData[0], PDCharW(Result)^, l shl 1); 
  end;
  
  initialization  
    __DateFormat.DateSeparator := '-';
    __DateFormat.TimeSeparator := ':';
    __DateFormat.ShortDateFormat := 'yyyy-MM-dd';
    __DateFormat.LongDateFormat := 'yyyy-MM-dd';
    __DateFormat.ShortTimeFormat := 'HH:mm:ss';
    __DateFormat.LongTimeFormat := 'HH:mm:ss';
  
  {$IFDEF MSWINDOWS}
  
  