хеширование

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math, Grids;
 
type
 
     pElem = ^Elem;                         //указатель на элемент
     Elem = record                          //сам элемент
        key:integer;
        next:pElem;
     end;
 
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    StringGrid1: TStringGrid;
    Label4: TLabel;
    Label5: TLabel;
    Memo1: TMemo;
    Label6: TLabel;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
var m:integer;
  HT:array [1.. 1000] of pElem;   //хеш таблица
    T:array of integer;
    Cl:array of Integer;
    k:array of integer;
{$R *.dfm}
 
function h(k:integer):integer;
var A:Real;   
begin
  A:=(sqrt(5)-1)/2;
  h:=Floor(m*Abs(Floor(k*A)-k*A));
end;
 
 
// добавить
procedure TForm1.Button1Click(Sender: TObject);
 
var position,k:integer;
    p,cur:pElem;
begin
   k:=StrToInt(Edit2.Text);
     position:=h(k);
    GetMem(p,sizeof(Elem));
    p^.key := k;
    p^.next:=nil;
    cur:=HT[position];
    if cur=nil then HT[position]:=p
    else
    begin
       while cur^.next<>nil do
       begin
          cur := cur^.next;
 
       end;
       cur^.next := p;
    end;
    if(Form1.StringGrid1.Cells[1,position]<>'') then
        Form1.StringGrid1.Cells[1,position]:=Form1.StringGrid1.Cells[1,position]+','+inttostr(k)
    else Form1.StringGrid1.Cells[1,position]:=Form1.StringGrid1.Cells[1,position]+inttostr(k);
    if Form1.StringGrid1.Cells[2,position]='' then
       Form1.StringGrid1.Cells[2,position]:='0'
    else Form1.StringGrid1.Cells[2,position]:=inttostr(strtoint(Form1.StringGrid1.Cells[2,position])+1);
end;
 
//создать
procedure TForm1.Button5Click(Sender: TObject);
var i,j:integer;
begin
  m:=StrToInt(Edit1.Text);
  SetLength(T,m);
  SetLength(Cl,m);
  StringGrid1.RowCount:=m;
  for i:=0 to m-1 do
    //T[i]:=MaxInt;
    T[i]:=0;
  for j:=0 to m-1 do
    Cl[j]:=0
end;
 
//показать таблицу
procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
    for i:=0 to m-1 do
    begin
       StringGrid1.Cells[0,i]:=IntToStr(i);
       StringGrid1.Cells[1,i]:='';
       StringGrid1.Cells[2,i]:=''
    end;
end;
 
 //поиск
procedure TForm1.Button2Click(Sender: TObject);
 var position,el,k:integer;
    cur:pElem;
    find:boolean;
begin
    k:=strtoint(Edit3.Text);
    find:=false;
    position:=h(k);
    cur := HT[position];
    while (not find) and (cur<>nil) do
    begin
        if cur^.key = k then 
            find:=true;
        cur:=cur^.next;
    end;
    if not find then  Form1.Label7.Caption:='Ничего не найдено'
    else Form1.Label7.Caption:= 'Найдено в строке '+ inttostr(position);
end;
end.