anchor.diff:   *                                                        *
    * hprose common unit for delphi.                         *
    *                                                        *
  - * LastModified: Dec 6, 2016                              *
  + * LastModified: Dec 13, 2016                             *
    * Author: Ma Bingyao <andot@hprose.com>                  *
    *                                                        *
   \**********************************************************/
  
positive.code:   ReadWriteSync: Boolean);
  var
    AList: IList;
  begin
    if VarIsList(Container) then begin
      AList := VarToList(Container);
      Create(AList, Sync, ReadWriteSync);
    end
    else if VarIsArray(Container) then begin
      Create(Length(Container), Sync, ReadWriteSync);
      Add(Container);
    end;
  end;
  
  
negative.code:     AddAll(VarToList(Container));
    end
    else if VarIsArray(Container) then begin
      Low := VarArrayLowBound(Container, 1);
      High := VarArrayHighBound(Container, 1);
      N := High - Low + 1;
      Grow(N);
      for I := Low to High do Add(Container[I]);
    end;
  end;
  