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

constructor TList.Create(aKey:String);

begin

Head:=TItem.Create(nil,aKey);

end;

function TList.AddFirst(aKey:string):boolean;

var Temp,Current,Previos:TItem;

begin

previos:=Head;

current:=Head.Getnext;

Temp:=TItem.Create(current,aKey);

Temp.next:=current;

previos.next:=Temp;

result:=true;

end;

function TList.AddLast(aKey:string):boolean;

varTemp,Current:TItem;

begin

// Внесение нового элемента в список

Current:=Head.Getnext;

Temp:=TItem.Create(Head.next,aKey);

Head.next:=Temp;

result:=true;

end;

function TList.GetHead:TItem;

begin

Result:=Head;

end;

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

constructor TMas.Create(aKey:string);