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

function HeshFunction(aKey:string):integer;virtual;//HESH-функциясвозможностьюпереопределения

function Add(aKey:string;found:byte):byte;//Found:0-до,1-перед, Возвращает:0-безконфликта,j-ячейка

function Search(aKey:string;var aCount:integer):string;//поискэлемента Hesh-таблицы

procedure DeleteAll;//удалениевсейтаблицы

Procedure SaveHesh(FileName:String);//сохранениеконтейнеравфайле

Procedure LoadHesh(FileName:String);//загрузкаконтейнераизфайла

Procedure Extract(var aIndex:integer;var aCur:TItem);//Вывод:aIndex-текушийиндексмассива,aCur-текущийэл-тсписка

end;

{***********************************}

var Hesh:TMas;

implementation

uses Main,SysUtils,Dialogs;

constructor TItem.Create(aNext:TItem;aKey:string);

begin

next:=aNext;

Key:=aKey;

end;

function TItem.Getnext:TItem;

begin

Result:=next;

end;

procedure TItem.SetNext(aNext:TItem);

begin

next:=aNext;

end;

Function TItem.GetKey:string;

begin

Result:=Key;

end;