anchor.diff:   Result := Self.popis + ':' + THV.HVFuncTypeToChar(Self.typ);
   end;
   
  +class function TFuncVyznam.Comparer():IComparer<TFuncVyznam>;
  +begin
  + Result := TComparer<TFuncVyznam>.Construct(
  +  function(const Left, Right: TFuncVyznam): Integer
  +   begin
  +    Result := CompareStr(AnsiString(Left.popis), AnsiString(Right.popis));
  +   end
  + );
  +end;
  +
   ////////////////////////////////////////////////////////////////////////////////
   
   initialization
  
positive.code: procedure TFuncsVyznam.ParseNewItems(data:string);
  var sl:TStrings;
      str:string;
      i:Integer;
  begin
   sl := TStringList.Create();
   try
  
negative.code:    sl.Free();
   end;
  
   Self.vyznamy.Sort(TFuncVyznam.Comparer());
   if (Assigned(Self.OnChange)) then Self.OnChange(Self);
  end;
  
  