anchor.diff:   *                                                        *
    * hprose common unit for delphi.                         *
    *                                                        *
  - * LastModified: May 24, 2014                             *
  + * LastModified: May 25, 2014                             *
    * Author: Ma Bingyao <andot@hprose.com>                  *
    *                                                        *
   \**********************************************************/
  
positive.code:       FCapacity := FLength + Count;
        Grow;
      end;
      Move(PChar(@FDataString[FPosition + 1])^,
        PChar(@FDataString[FPosition + Count + 1])^, (FLength - FPosition) * SizeOf(Char));
      Move(PChar(AString)^, PChar(@FDataString[FPosition + 1])^, Count * SizeOf(Char));
      Inc(FPosition, Count);
      Inc(FLength, Count);
    end;
  
negative.code:     function ContainsValue(const Value: Variant): Boolean; virtual; abstract;
      function Delete(const Key: Variant): Variant; virtual; abstract;
      function GetEnumerator: IMapEnumerator; virtual;
      function Join(const ItemGlue: string = ';';
                    const KeyValueGlue: string = '=';
                    const LeftPad: string = '';
                    const RightPad: string = ''): string; virtual;
      class function Split(Str: string; const ItemSeparator: string = ';';
        const KeyValueSeparator: string = '='; Limit: Integer = 0;
        TrimKey: Boolean = False; TrimValue: Boolean = False;
  