Информатика в техническом университете / Информатика в техническом университете. Основы программирования

12. Разработка библиотеки интерфейсных компонентов

371

Часть 2. Объектио-ориентироваииое программирование

masalt[npos].Setattr(113); {убираем выделение} masalt[temp].Setattr(71); {выделяем пункт} npos:=temp;

end;

end; #13: begin

masalt[npos].Setattr(113); {убираем выделение}

Enter; {при нажатии Enter - выполняем пункт} Draw; {выводим главное меню} masalt[npos].Setattr(71); {выделяем пункт меню}

end;

end

until((npos=nalt)and(chl=#13))or(chl=#27);{jxo завершения работы} End;

Procedure TMenu.Enter; {абстрактный метод выполнения пунктов}

Begin end; End.

К л а с с T F o r m описываем в модуле Form. Инициализацию объект­ ных полей - окон ввода также будем выполнять с использованием типизиро­ ванных констант.

Unit Form;

Interface

Uses crt, WinJnputMenu; Type TForm=Object(TMenu)

ninput:integer; {количество полей ввода} masinp:array[1..5] ofTInput; {массив полей ввода}

constructor Initfaxl, ayl, ax2, ay2,aattr, axt, ayt:integer;atext:str80; n:integer; const wl:array of TWin;k:integer; const w2:array of TInput);

procedure Draw; virtual; {вывод окна} procedure Clear; {очистка окон ввода}

procedure Input; {ввод информации из окон ввода} end;

Implementation Constructor TForm.Init;

Var i:integer; Begin

inherited Init(ax1,ayl,ax2, ay2, aattr,axt,ayt,atext, n, wl); ninput: =k; {количество задействованных окон ввода}

372

12. Разработка библиотеки интерфейсных компонентов

for i:-l to ninput do masmpfiJJnit(w2fi'JJ.xJ, w2fi'IJ.yI,

w2fi'lj,x2, w2[i'l].y2, w2[i'l],attr, w2[i-l],xt, w2[i],yt,w2[i'l]Jext, w2[i'l]Anp.xl, w2[i'l]Anp.yl, w2[i-l].inp.x2, w2fi'JJJnp.y2,

w2[i-l],inp.attn w2[i'l]Anp.xU w2[hl].inp.yt, w2fhlj, inp,text);

Clear;

for i:=I to ninput do masinp[iJ,Input; {вводим данные}

End;

End

12.4. Создание программы с использованием библиотеки интерфейсных компонентов

В параграфе 12.1 для программы «Записная книжка» уже была выполне­ на декомпозиция интерфейсной части предметной области (рис. 12.7). Оста­ лось учесть взаимодействие профаммы с файлом: открытие, запись инфор­ мации и ее поиск. Будем считать, что все эти действия выполняет объект Файл. Этот объект должен обрабатывать сообщения: Открыть/создать, Доба­ вить и Найти. На рис. 12.11 показан результат объектной декомпозиции всей предметной области профаммы.

Проектирование и реализация объекта Файл. Для реализации объек­ та Файл разработаем класс XBase (рис. 12.12).

373

Часть 2. Объектно-ориентированное программирование

Главное

меню

Рис. 12.11. Диаграмма объектов предметной области программы

Этот класс должен хранить файловую переменную f, через которую бу­ дет осуществляться доступ к файлу.

Для поиска данных класс будет включать поля исходных данных поис­ ка: p_family ~ фамилия и ропате - имя, ключи kl, к2, которые устанавлива­ ются в зависимости от того, заданы или нет фамилия или имя и поля резуль­ татов поиска family, name, telefon. Кроме того, класс должен включать метод открытия существующего или создания нового файла Open, метод добавле­ ния записей Add, метод поиска первой подходящей записи Find и метод по­ иска следующих подходящих записей FindNext.

Наибольший интерес представляют функции поиска информации, кото­ рые в соответствии с заданием должны обеспечивать поиск по неполным данным. При этом поля Фамилия и Имя могут быть заданы, а могут быть пропущены, могут совпадать, а могут не совпадать. Всего возможно 2"* = 16 вариантов. В пяти случаях результат поиска положителен (табл. 12.1), т.е. за­ писи считаются удовлетворяющими заданным условиям. Эти случаи можно объединить в одно логическое выражение:

ff = (kl л к2 л кЗ л к4) v (к1л к2 л кЗ) v ( i l л к2 л к4),

374

12. Разработка библиотеки интерфейсных компонентов

375

Часть 2. Объектно-ориентированное программирование

Assign(f,fname); {инициализация файловой переменной}

{$Ч

Resetф:

{$1-^} {открытие с проверкой существования} iflOResultoO then ReWrite(f): {создание файла}

End;

Procedure TBase.Add; Var r:rec;

Begin

Seek(f,FileSize(f)); {ycTSLueiBnnBeiQM файловый указатель на конец файла}

к4: =р_пате =г тате;

376

12. Разработка библиотеки интерфейсных компонентов

if(kl and к2 and кЗ and к4) {выбираем записи}

or (not kl and k2 and k4) or (kl and not k2 and кЗ) then

пате:=к тате; telefon: =кrtelefon;

end

end;

FindNext:=ff; {возвращаем ключ поиска} end;

Procedure TBase.Closef; begin

С1о8еф; {закрываем файл} end;

End,

Проектирование интерфейса с использованием библиотеки интерг фейсных компонентов. Библиотека интерфейсных компонентов содержит классы, реализующие обобщенные объекты, вид и поведение которых, свя­ занные с решением конкретной задачи, не определены. Для того чтобы уточ­ нить вид компонентов интерфейса, обычно достаточно их соответствующим образом инициализировать. Конкретизацию поведения компонентов в реаль­ ной задаче выполняют за счет наследования классов реальной задачи от биб­ лиотечных.

На рис. 12.13 представлена полная диаграмма классов программы, на которой показано наследование интерфейсных классов от описанных в биб­ лиотеке и уточнены их ассоциации с классом TBase.

Класс TIName будет использован для реализации объекта Ввод имени файла. Он переопределяет метод Error класса TInput, задавая свой вариант проверки правильности введенной информации.

Класс TMain строится для реализации объекта Главное меню. Он пере­ определяет метод Enter, конкретизируя поведение программы при выборе пунктов главного меню. Количество пунктов меню регулируется соответст­ вующей инициализацией поля nalt. Добавляемое поле may логического типа будет использовано для контроля открытия файла.

Классы TAdd и TFind будут использованы для реализации форм Добав­ ление и Поиск. Очевидно, что они должны переопределять абстрактный ме­ тод Enter прародителя - класса TMenu. Кроме этого в классе TFind необходи­ мо переопределить метод ввода, который должен обеспечить ввод информа­ ции не из всех полей, а только из поля фамилии и поля имени, и добавить ме­ тод Show для вывода найденных данных (телефона и, при поиске по непол­ ным данным, имени или фамилии) в окно поиска.

377

Часть 2, Объектно-ориентированное программирование

т.т

"ТГ

Рис. 12.13. Диаграмма классов программы «Записная книжка»

Для реализации объекта Сообщение об отсутствии данных нового клас­ са создавать не нужно, используем непосредственно класс TMessage.

После объявления наследуемых классов перед описанием переопреде­ ленных методов необходимо объявить объекты-переменные, так как методы будут обращаться к этим переменным для программирования требуемых действий.

Ниже представлен полный текст программы.

Program Memory;

Uses crt,WmJnput,Message,Menu,Form,Base;

{объявление классов - потомков библиотечных классов}

Procedure Enter; virtual; {завершение ввода одной записи} end;

378

12, Разработка библиотеки интерфейсных компонентов

{описание дополнительных методов}

Procedure TMain.Enter; {обработка выбора пунктов главного меню}

Begin

case проз of l:begin

N.Draw; {выводим окно ввода}

NJnput; {вводим имя файла, проверяя его допустимость} B,Open(N.inpJext); {если файл существует, то открываем,

иначе - создаем} may:=true; {устанавливаем признак открытия файла }

end;

2:if may then {если определен файл данных } A.Run; {осуществляем добавление записей}

Зц/тау then {если определен файл данных } FRun; {осуществляем поиск записей}

end;

End;

Function TIName.Error; {проверка имени файла}

Var L'integer;

Begin l:=Pos(\ \ inp.Text);

if 1=0 then l:=length(inp.Text); if(l>0) and e<==8) then Error:=fahe

else Error:=true;

End;

Procedure TAdd.Enter; {обработка пунктов меню добавления}

Begin casenpos of

l:begin

Input; {вводим фамилию, имя и телефон}

B,Add(masinpf]J. inp. text, masinp[2]. inp, text, masinp[3J.inp.text); {записываем в файл}

379

Часть 2. Объектно-ориентированное программирование

end; end; {case}

End;

Procedure TFindEnter; {обработка пунктов меню поиска}

Begin case npos of ]:begin

Input; {вводим фамилию и имя } ifB,Find(masinp[l]AnpJexUmasinp[2]Anp.text) then Show

Procedure TFind.Show; {вывод найденной информации в окно}

380