хеш таблица при работе с файлами

procedure TForm1.Button1Click(Sender: TObject);
var
hd:Cardinal;
fnm:string;
//rec:TSearchRec;
rec1:_win32_find_dataa;
 FindHandle : THandle;
 FindData : TWin32FindData;
 b:boolean;
 s:string;
begin
  //search;
//  fnm:='c:\*.*';
  FindHandle := FindFirstFile('C:\*.*', FindData);
  if FindHandle <> INVALID_HANDLE_VALUE then
  begin
     b := true;
     while b do
     begin
       s := FindData.cFileName;
       if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)>0 then s:=s+' dir';
       // не показывать 
       if (s<>'..') and (s<>'.') then
         Listbox1.Items.Add(s);
       b := FindNextFile(FindHandle, FindData);
     end;
  end;
  FindClose(FindHandle);

end;

unit Unit1;

interface

uses
  Windows, Messages, StdCtrls, Classes, Controls, ComCtrls, Variants,  Graphics,  Forms,
  Dialogs,  CheckLst,Contnrs, sysutils ;

type
  pfrec = ^Tfrec;
  Tfrec = record
    pdir:pointer;
    ftLastWriteTime: TFileTime;
    nFileSizeHigh: DWORD;
    nFileSizeLow: DWORD;
    cFileName: array[0..MAX_PATH - 1] of AnsiChar;
  end;
  pfdubl = ^tfdubl;
  Tfdubl = record
    a:tfrec;
    booble:pfdubl;
  end;
  Tcollise=class
    flastdubl:pfrec;
    flist: array of pfrec;
  public
    function add(const newitem:pfrec):boolean;
    function compare(const a,b:pfrec):boolean;
  end;
  pdir = ^tdir;
  Tdir = record
    dirnam: array[0..MAX_PATH - 1] of AnsiChar;
    nextdir:pdir;

   end;
  Tfdlist=class
  fpointers:array[0..2208] of pfdubl;
  flist: array of Tfdubl;

  public
    function add(const a : pfrec; const id:word):boolean;//tru= more then one doobl;
  end;


  Tdirlist=class
    Fdir :array [0..2208] of Tcollise;
    frezfl:Tfdlist;
    fcollist: array of Tfrec;
  public
    function add(const a:Tfrec): boolean;
    function hesh(const a:pfrec):word;

  end;






  TForm1 = class(TForm)
    ListView1: TListView;
    ListView2: TListView;
    ComboBox1: TComboBox;
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);


    { Private declarations }

  public
    { Public declarations }
    answer: array [0..255]of byte;
    dirlist:Tdirlist;
  end;
//TBucketList



var
  Form1: TForm1;




implementation

{$R *.dfm}
function AlgoritmForDword(a:Dword):Longint;
var i:dword;
begin
  i:= not dword(a);
  i:=((i and $55555555) + ((i shr 1 ) and $55555555) );
  i:=((i and $33333333) + ((i shr 2 ) and $33333333) );
  i:=((i and $0F0F0F0F) + ((i shr 4 ) and $0F0F0F0F) );
  i:=((i and $00FF00FF) + ((i shr 8 ) and $00FF00FF) );
  i:=((i and $FFFF) + ((i shr 16 ) and $FFFF) );
  result:=i;
end;
function AlgoritmForAnsiChar(a:Ansichar):byte;
var i:dword;
begin
  i:= not byte(a); //becose we calk 0, not 1 invert
  i:=((i and $55) + ((i shr 1 ) and $55) ); //sum every first and second bit. this step we have 4 results in each byte.
  i:=((i and $33) + ((i shr 2 ) and $33) ); // sum erery first and second result. this step we have 2 results each byte.
  i:=((i and $0F) + ((i shr 4 ) and $0F) ); // sum first and sedond part of byte. this step we have 1 byte- 1 result (0..8 - quality of 0 bits).
  result:=i;
end;

    function Tcollise.compare(const a,b:pfrec):boolean;
    begin
      result := true;
      result := (a^.nFileSizeHigh = b^.nFileSizeHigh);
      if not result then exit;
      result := (a^.nFileSizeLow = b^.nFileSizeLow);
      if not result then exit;
      result := (a^.ftLastWriteTime.dwLowDateTime = b^.ftLastWriteTime.dwLowDateTime);
      if not result then exit;
      result := (a^.ftLastWriteTime.dwHighDateTime = b^.ftLastWriteTime.dwHighDateTime);
      if not result then exit;
      result := (pos(a^.cFileName ,b^.cFileName)=1);
    end;


    function Tcollise.add(const newitem:pfrec):boolean;
    var i:integer;
    begin
      result := true;
      if length(flist) = 0
      then
      begin
        setlength( flist,1);
        flist[0] := newitem;
      end else
      begin
      for i:= 0 to  length(flist)-1 do
        if compare( flist[i],newitem) then
        begin
          result:=false;
          flastdubl := @flist[i];
          exit;
        end;
      setlength( flist,i+2);
      flist[i+1] := newitem;
      end;
    end;

    function Tdirlist.hesh(const A:pfrec):word;
      var p:pchar;
      m:dword;
    begin
      p:=pointer(a);
      inc(p,4);
      result:=0;
      m:=16+strlen(a^.cFileName);
      while m>=4 do
      begin
        inc(result,AlgoritmForDword(pdword(p)^));
        inc(p,4);
        dec(m,4);
      end;

      while m>0 do
      begin
        inc(result,AlgoritmForAnsiChar(p^));
        inc(p);
        dec(m);
      end;

    end;
    function Tdirlist.add(const a:Tfrec): boolean;
    var b:word; rp:pfrec;
    begin
      
      setlength(fcollist,length(fcollist)+1);
      fcollist[length(fcollist)-1]:=a;
      rp:=@fcollist[length(fcollist)-1];
      b:= hesh(rp);
      if Fdir[b]= nil then
      Fdir[b] := tcollise.Create;
      result := Fdir[b].add(rp);
      if not result then
      begin
        if not frezfl.add(rp,b) then frezfl.add(Fdir[b].flastdubl,b);

      end;
    end;

    function Tfdlist.add(const a : pfrec; const id:word):boolean;
    var p:pfdubl;
    begin
      result:=false;
      setlength(flist,length(flist)+1);
      flist[length(flist)-1].a:=a^;
      flist[length(flist)-1].booble :=nil;

      if fpointers[id]=nil then
      begin
        fpointers[id]:=@flist[length(flist)-1];
      end else
      begin
        result:=true; // tru= more then one doobl;
        p:=fpointers[id];
        while p.booble <> nil do p:=p.booble;
        p.booble:= @flist[length(flist)-1];
      end;
    end;

procedure TForm1.Button1Click(Sender: TObject);
var
 j:integer;
 p: pfdubl;
 procedure search(a:string);
 var
 FindHandle : THandle;
 FindData : TWin32FindData;
 b:boolean;
 s:string;
 tmprec:Tfrec;
 i:integer;
 begin
  FindHandle := FindFirstFile(PCHAR(a), FindData);
  if FindHandle <> INVALID_HANDLE_VALUE then
  begin
     b := true;
     while b do
     begin
       s := FindData.cFileName;


       // âñÿêèå òî÷êè è äâîåòî÷èÿ íàì íå íóæíû
       if (s<>'..') and (s<>'.') then

       if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)>0
       then
          search(copy(a,1,pos('*.*',a)-1) + s + '\' + '*.*')
       else
       begin


         tmprec.ftLastWriteTime.dwLowDateTime:=FindData.ftLastWriteTime.dwLowDateTime;
         tmprec.ftLastWriteTime.dwHighDateTime:=FindData.ftLastWriteTime.dwHighDateTime;
         tmprec.nFileSizeHigh:=FindData.nFileSizeHigh;
         tmprec.nFileSizeLow:=FindData.nFileSizeLow;
         for i:= 0 to high(tmprec.cFileName) do
         tmprec.cFileName[i] := FindData.cFileName[i];
         dirlist.add(tmprec);
       end;
       b := FindNextFile(FindHandle, FindData);
     end;
  end;
  windows.FindClose(FindHandle);
 end;

begin
  button1.Enabled:=false;
  try
    search('c:\test\*.*');
    for j:=0 to high(dirlist.frezfl.fpointers) do
    begin
      if dirlist.frezfl.fpointers[j]=nil then continue ;

      p:=dirlist.frezfl.fpointers[j];
      while p<>nil do
      begin
        ListBox1.Items.Add(p.a.cFileName);
        p:=p.booble;
      end
      
    end;

  finally
    button1.Enabled:=true;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
   //prepeare bitmask
  for i := 0 to 255 do
  begin
    answer[i] := AlgoritmForAnsiChar(char(i));
  end;
  dirlist := Tdirlist.create;
  dirlist.frezfl := Tfdlist.Create;
end;