Хэш поиск

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

Скачать Бесплатно!
Для того чтобы скачать эту работу.
1. Подтвердите что Вы не робот:
2. И нажмите на эту кнопку.
закрыть



);

StatusBar1.Panels.Clear;

StatusBar1.Panels.Add.Text:=Количество сравнений : +inttostr(Count);

end;

end;

2: begin {Clear}

NewClick(Sender);

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;

 

procedure TForm1.NewClick(Sender: TObject);

var i,j:integer;

begin

if Hesh<>nil then

begin

Hesh.DeleteAll;

for i:=0 to 10 do for j:=1 to 10 do

begin

stringgrid1.Cells[i,j]:=;

end;

end;

end;

 

procedure TForm1.OperationGroupClick(Sender: TObject);

begin

case OperationGroup.ItemIndex of

0:begin

Inicial.Caption:=Добавить;

Edit1.Text:=;

end;

1:begin

Inicial.Caption:=Найти;

Edit1.Text:=;

end;

2:begin

Inicial.Caption:=Очистить;

Edit1.Text:=;

end;

end;

end;

 

procedure TForm1.SavaBtnClick(Sender: TObject);

begin

SaveClick(Sender);

end;

 

procedure TForm1.LoadBtnClick(Sender: TObject);

begin

LoadClick(Sender);

end;

 

end.

7. Список использованной литературы.

 

  1. Иванов А.Г., Карпова А.В., Семик В.П., Филинов Ю.Е. Объектно-ориентированная среда программирования. Системы и средства информатики. Вып.2. М.: Наука, 1991.
  2. Иванова Г.С., Ничушкина Т.Н., Пугачев Е. Объектно-ориентированное программирование: Учебник для вузов Изд. 2-е, М: МГТУ им. Н.Э.Баумана

3. Фаронов В.В. Delphi 2005. Язык, среда, разработка приложений. СПб.: Питер, 2005 г.

4. Вирт Н. Алгоритмы и структуры данных. Изд. Невский Диалект, 2001 г.

5. Козин А. Н. Структуры и алгоритмы обработки данных ТИСБИ, 2003

s