Курсовая работа: Хэш поиск

procedure SaveClick(Sender: TObject);

procedure LoadClick(Sender: TObject);

procedure CloseMenuClick(Sender: TObject);

procedure NewClick(Sender: TObject);

procedure OperationGroupClick(Sender: TObject);

procedure SavaBtnClick(Sender: TObject);

procedure LoadBtnClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Implementation

uses ClassHeshProg;

{$R *.dfm}

procedure Output;

var i,j:integer;Cur:TItem;

begin

for i:=1 to 10 do

begin

j:=1;

Hesh.Extract(i,Cur);

While Cur<>nil do

begin

form1.StringGrid1.Cells[i-1, j]:=Cur.GetKey;

Cur:=Cur.Getnext;

inc(j);