49414 (Хэш поиск), страница 3

2016-07-30СтудИзба

Описание файла

Документ из архива "Хэш поиск", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "49414"

Текст 3 страницы из документа "49414"

SavaBtn: TBitBtn;

LoadBtn: TBitBtn;

procedure FormActivate(Sender: TObject);

procedure CloseButtonClick(Sender: TObject);

procedure InicialClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure SaveClick(Sender: TObject);

procedure LoadClick(Sender: TObject);

procedure CloseMenuClick(Sender: TObject);

procedure NewClick(Sender: TObject);

procedure OperationGroupClick(Sender: TObject);

procedure SavaBtnClick(Sender: TObject);

procedure LoadBtnClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Implementation

uses ClassHeshProg;

{$R *.dfm}

procedure Output;

var i,j:integer;Cur:TItem;

begin

for i:=1 to 10 do

begin

j:=1;

Hesh.Extract(i,Cur);

While Cur<>nil do

begin

form1.StringGrid1.Cells[i-1, j]:=Cur.GetKey;

Cur:=Cur.Getnext;

inc(j);

end;

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

begin

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

Hesh:=TMas.Create(''); end else

case OperationGroup.ItemIndex of

0:begin {Add}

If Edit1.Text= '' then MessageDlg('Введите значение!',MtError,[mbOK],1) else

if AddGroup.ItemIndex=0 then

begin {AddFirst}

j:=Hesh.Add(Edit1.Text,0);

if j<>0 then MessageDlg('Конфликт в ячейке '+inttostr(j),MtInformation,[mbok],1);

MessageDlg('Ключ с значением '+Edit1.Text+' добавлен.',MtInformation,[mbok],1);

end else

begin {AddLast}

j:=Hesh.Add(Edit1.Text,1);

if j<>0 then MessageDlg('Конфликт в ячейке '+inttostr(j),MtInformation,[mbok],1);

MessageDlg('Ключ с значением '+Edit1.Text+' добавлен.',MtInformation,[mbok],1);

end;

Output;

end;

1:begin {Search}

If Edit1.Text= '' then MessageDlg('Введите значение!',MtError,[mbOK],1) else

if Hesh.Search(Edit1.Text,Count)='0' then

MessageDlg('Элемент не найден!',MtError,[mbok],1) else

begin

MessageDlg('Элемент найден со значением '+Edit1.Text,MtInformation,[mbok],1);

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

Свежие статьи
Популярно сейчас
Зачем заказывать выполнение своего задания, если оно уже было выполнено много много раз? Его можно просто купить или даже скачать бесплатно на СтудИзбе. Найдите нужный учебный материал у нас!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4121
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее