anchor.diff:  end;
   
   
  +
  +function TKMEntity.ObjToStringShort(const aSeparator: String = '|'): String;
  +begin
  +  Result := Format('UID = %d', [UID]);
  +end;
  +
  +
  +function TKMEntity.ObjToString(const aSeparator: String = '|'): String;
  +begin
  +  Result := ObjToStringShort(aSeparator);
  +end;
  +
  +
   { TKMHandEntity }
   constructor TKMHandEntity.Create(aType: TKMHandEntityType; aUID: Integer; aOwner: TKMHandID);
   begin
  
positive.code: 
  function TKMHandEntity.ObjToStringShort(const aSeparator: String = '|'): String;
  begin
    Result := Format('UID = %d%sPos = %s',
                     [UID, aSeparator,
                      Position.ToString]);
  end;
  
  
  function TKMHandEntity.ObjToString(const aSeparator: String = '|'): String;
  begin
    Result := ObjToStringShort(aSeparator) +
              Format('%sOwner = %d%sPositionF = %s%sAllowAllyToSel = %s',
                     [aSeparator,
                      Owner, aSeparator,
  
negative.code:     procedure Save(SaveStream: TKMemoryStream); virtual;
  
      property UID: Integer read GetUID;
  
      function ObjToString(const aSeparator: String = '|'): String; virtual;
      function ObjToStringShort(const aSeparator: String = '|'): String; virtual;
    end;
  
    { Common class for TKMUnit / TKMHouse / TKMUnitGroup }
  