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

end;

end;{end case}

Edit1.SetFocus;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Hesh:=TMas.Create('');

end;

procedure TForm1.SaveClick(Sender: TObject);

begin

if SaveDialog1.Execute then

if Hesh<>Nil then begin

Hesh.SaveHesh(SaveDialog1.FileName);

NewClick(Sender); end else

MessageDlg('HESH-таблицанесоздана.',MtError,[mbok],1);

end;

procedure TForm1.LoadClick(Sender: TObject);

begin

NewClick(Sender);

if OpenDialog1.Execute then

begin

Hesh.LoadHesh(OpenDialog1.FileName);

Output;

end;

end;

procedure TForm1.CloseMenuClick(Sender: TObject);

begin

CloseButtonClick(Sender);

end;