anchor.diff:      UserProc(UserData, Key, TObject(Value), Done);
   end;
   
  +procedure TIntegerHashTrie.Traverse(UserData: Pointer;
  +  UserProc: TWordHashTraverseProc);
  +var
  +  It : THashTrieIterator;
  +  Key : Word;
  +  Value : Pointer;
  +  Done : Boolean;
  +begin
  +  InitIterator(It);
  +  Done := False;
  +  while (not Done) and Next(It, Key, Value) do
  +    UserProc(UserData, Key, TObject(Value), Done);
  +end;
  +
  +procedure TIntegerHashTrie.Traverse(UserData: Pointer;
  +  UserProc: TWordHashTraverseMeth);
  +var
  +  It : THashTrieIterator;
  +  Key : Word;
  +  Value : Pointer;
  +  Done : Boolean;
  +begin
  +  InitIterator(It);
  +  Done := False;
  +  while (not Done) and Next(It, Key, Value) do
  +    UserProc(UserData, Key, TObject(Value), Done);
  +end;
  +
  +procedure TIntegerHashTrie.Traverse(UserData: Pointer;
  +  UserProc: TInt64HashTraverseProc);
  +var
  +  It : THashTrieIterator;
  +  Key : Int64;
  +  Value : Pointer;
  +  Done : Boolean;
  +begin
  +  InitIterator(It);
  +  Done := False;
  +  while (not Done) and Next(It, Key, Value) do
  +    UserProc(UserData, Key, TObject(Value), Done);
  +end;
  +
  +procedure TIntegerHashTrie.Traverse(UserData: Pointer;
  +  UserProc: TInt64HashTraverseMeth);
  +var
  +  It : THashTrieIterator;
  +  Key : Int64;
  +  Value : Pointer;
  +  Done : Boolean;
  +begin
  +  InitIterator(It);
  +  Done := False;
  +  while (not Done) and Next(It, Key, Value) do
  +    UserProc(UserData, Key, TObject(Value), Done);
  +end;
  +
   procedure TIntegerHashTrie.Traverse(UserData: Pointer; UserProc:
       TIntHashTraverseProc);
   var
  
positive.code:   TIntHashTraverseProc = procedure(UserData: Pointer; Value: integer;
      Data: TObject; var Done: Boolean);
    TIntHashTraverseMeth = procedure(UserData: Pointer; Value: integer;
      Data: TObject; var Done: Boolean) of object;
    EIntegerHashTrie = class(ETrie);
    { TIntegerHashTrie }
  
negative.code:     function Next(var AIterator : THashTrieIterator; out key : Int64; out Value : Pointer) : Boolean; overload;
      procedure Traverse(UserData: Pointer; UserProc: TIntHashTraverseProc); overload;
      procedure Traverse(UserData: Pointer; UserProc: TIntHashTraverseMeth); overload;
      procedure Traverse(UserData: Pointer; UserProc: TWordHashTraverseProc); overload;
      procedure Traverse(UserData: Pointer; UserProc: TWordHashTraverseMeth); overload;
      procedure Traverse(UserData: Pointer; UserProc: TInt64HashTraverseProc); overload;
      procedure Traverse(UserData: Pointer; UserProc: TInt64HashTraverseMeth); overload;
    end;
  
  implementation
  