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

end;

Hesh.Destroy;

Hesh:=nil;

end;

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

begin

aCur:=mas[aIndex].Head.next;

end;

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

var Current:TItem;tf:TextFile;i:integer;

begin

AssignFile(tf,FileName);

rewrite(tf);

for i:=1 to 10 do

begin

Current:=mas[i].Head.Getnext;

while Current<>Nil do

begin

Write(tf,Current.key+' ');

Current:=Current.next;

end;

Writeln(tf);

end;

CloseFile(tf);

end;

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

var tf:TextFile;s,si,Key:string;b,bf:Boolean;i:integer;

begin

b:=False;