#39;Введіть значення!', 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. p> 2. Іванова Г.С., Нічушкіна Т.М., Пугачов Є. В«Об'єктно-орієнтоване програмування: Підручник для вузів Вид. 2-е В», М: МГТУ ім. Н.Е.Баумана
3. Фаронов В.В. Delphi 2005. Мова, середа, розробка додатків. - СПб.: Пітер, 2005 p
4. Вірт Н. Алгоритми та структури даних. - Вид. Невський Діалект, 2001 р.
5. Козин А. Н. В«Структури та алгоритми обробки данихВ» ТИСБИ, 2003
