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

end;

end;

procedure TForm1.FormActivate(Sender: TObject);

var i:integer;

begin

for i:=1 to form1.StringGrid1.ColCount do

begin

form1.StringGrid1.Cols[i-1].Add(inttostr(i));

end;

form1.StatusBar1.Panels.Add.Text:='Объектнаяреализация HESH-поиска.';

form1.OperationGroup.ItemIndex:=0;

form1.AddGroup.ItemIndex:=1;

end;

procedure TForm1.CloseButtonClick(Sender: TObject);

begin

if MessageDlg('Сохранитьизменения?',mtConfirmation,[mbYes, mbNo],0)=mrYes then

begin

SaveClick(Sender);

NewClick(Sender);

Close; end else

begin

Hesh.DeleteAll;

Close;

end;

end;

procedure TForm1.InicialClick(Sender: TObject);

var i,j,count:integer;

begin

if Hesh=nil then