Программа "Телефонный справочник" - Курсовая работа

бесплатно 0
4.5 62
Создание программы "Телефонный справочник": загрузка телефонной книги; разработка алгоритмов добавления, редактирования, удаления записи; поиск по различным параметрам, вывод данных на печать. Интерфейс пользователя, системные требования и ограничения.


Аннотация к работе
Техническое задание 2.1 Структура для хранения справочника 2.2 Структура для хранения номеров телефонов 2.

Список литературы
Приложение. Текст программы

Техническое задание

В данной курсовой работе требуется создать программу телефонный справочник, содержащую следующие сведения: ФИО, адрес, электронная почта, телефон (мобильный, домашний).

Выполним постановку задачи и приведем условия, которым должна удовлетворять программа, а также требования к необходимому результату: 1. Ввод исходных данных и формирование телефонной книги, возможность загрузки ранее созданного справочника и подгрузки данных в уже существующий справочник.

2. Корректировка данных: добавление данных, причем на одного абонента может приходиться несколько номеров телефона как мобильных, так и домашних; редактирование данных абонента; удаление абонента из справочника.

3. Сортировка телефонной книги должна быть в алфавитном порядке. Алгоритм реализации сортировки должен давать результат за максимально короткий промежуток времени.

4. В справочнике реализуется динамический поиск. Поиск должен проходить по нескольким параметрам: фамилии, номеру телефону, оператору.

5. Вывод данных об абоненте на печать.

Введение

Решение данной задачи можно разбить на несколько подзадач таких, как загрузить телефонную книгу, создать справочник, добавить, редактировать, удалить запись, поиск по различным параметрам, вывод данных на печать. Наиболее важными алгоритмами для поставленной задачи являются алгоритмы поиска и сортировки. Выбор подходящих алгоритмов поиска и сортировки основаны на простоте реализации и эффективности работы в рамках данной программы.

1. Теоретический материал

В данной работе реализованы различные алгоритмы, но наиболее важными из них являются алгоритм сортировки и поиска.

Сортировка один из наиболее распространенных процессов обработки данных. Сортировка к тому же еще достаточно хороший пример задачи, которую можно решать с помощью многих различных алгоритмов. Каждый из них имеет и свои достоинства, и свои недостатки, и выбирать алгоритмы нужно, исходя из конкретной постановки задачи. Рассмотрим несколько примеров сортировок и сравним их с алгоритмом, выбранным для реализации телефонной книги [1].

Сортировка с помощью прямого выбора. Суть этой сортировки заключается в том, что выбирается элемент с наименьшим значением, меняется местами с первым элементом, затем этот процесс повторяется с оставшимися элементами до тех пор пока список будет отсортирован.

Рис.1.1 Схема алгоритма прямого выбора

Сортировка с помощью прямого включения. В сортировке включениями элементы разделяются на уже упорядоченную и неупорядоченную последовательности. В начале упорядоченная часть содержит только один элемент. Очередной элемент из начала неупорядоченной части вставляется на подходящее место в упорядоченную часть. При этом упорядоченная часть удлиняется на один элемент, а неупорядоченная - укорачивается. Сортировка заканчивается при исчезновении неупорядоченной части [4].

Рис 1.2 Схема алгоритма прямых включений

Сортировка прямого обмена. Алгоритм прямого обмена основывается на сравнении и смене мест для пары соседних элементов и продолжении этого процесса до тех пор, пока не будут упорядочены все элементы. Повторяются проходы по списку, сдвигая каждый раз наибольший (или наименьший) элемент оставшейся последовательности к левому концу списка. Такой метод широко известен под именем пузырьковая сортировка. Очевидный способ улучшения этого алгоритма - были или не были перестановки в процессе некоторого прохода. Если в последнем проходе перестановок не было, то алгоритм можно заканчивать.

Рис 1.3 Схема алгоритма прямого обмена

Для решения поставленной задачи был выбран алгоритм прямого обмена, так как эта сортировка более проста в реализации и эффективна для данной задачи. Другие алгоритмы сортировки сложны в реализации, поэтому от них решили отказаться.

Важным алгоритмом для данной курсовой работы является алгоритм поиска подстроки в строке. Рассмотрим некоторые алгоритмы.

Алгоритм основанный на методе последовательного поиска. Обозначим S - слово, в котором ищется образец X. Пусть m и n - длины слов S и X соответственно. Можно сравнить со словом X все подслова S, которые начинаются с позиций 1,2,...,m-n 1 в слове S; в случае равенства выводится соответствующая позиция. Алгоритм прост в реализации. Количество сравнений будет равно O ((m-n 1)*n 1) [3].

Алгоритм Рабина. В слове A, длина которого равна m, мы ищем образец X длины n. Вырежем "окошечко" размером n и будем двигать его по входному слову. Нас интересует, не совпадает ли слово в "окошечке" с заданным образцом. Сравнивать по буквам долго. Вместо этого фиксируем некоторую числовую функцию на словах длины n, тогда задача сведется к сравнению чисел, что, несомненно, быстрее. Если значения этой функции на слове в "окошечке" и на образце различны, то совпадения нет. Только если значения одинаковы, необходимо проверять последовательно совпадение по буквам. Общее время работы есть O(n m). Данный метод накладывает некоторые ограничения на текст и искомую строку [2].

В курсовой работе использовали алгоритм последовательно поиска, так как данный алгоритм является простейшим алгоритмом поиска, не накладывает никаких ограничений на текс или искомую строку и имеет простейшую реализацию.

2. Описание использованных структур данных

2.1 Структура для хранения справочника

На практике (в зависимости от требуемой задачи) используются различные способы представления данных в памяти компьютера: 1) список 2) массив 3) битовые поля 4) деревья и т.д.

Для хранения данных телефонной книги использовали двухсвязный список. Каждый элемент списка состоит из двух полей: информационного, где хранятся данные абонента (ФИО, адрес, электронная почта, номера телефонов) и поля связок, где содержится указатель на следующего и предыдущего абонента телефонной книги.

Графически структура списка выглядит следующим образом:

Рис. 2.1 Структура двусвязного списка

В программе список реализован в следующем виде: LINKABONENT = ^Abonent; //ссылка на запись абонент

Abonent = record //абонент

Name:ANSISTRING; // имяабонента

SURNAME:ANSISTRING;// фамилия

SECONDNAME:ANSISTRING; // отчество

Tel:LINKTEL; //списоктелефоновабонента

Adress:ANSISTRING; // адресабонента

Mail:ANSISTRING;// почта

NEXTABONENT: LINKABONENT; //следующийабонентвспискеабонентов

BACKABONENT: LINKABONENT; //предыдущий index:Integer; //порядковыйномеротображаемогоабонента show:Integer; //отображается или нет абонент end;

Достоинство этой структуры данных, помимо возможности изменять размер, - это простота реализации. Также, благодаря наличию ссылок, каждый элемент в списке, в отличие от массива, может занимать разный объем памяти. Адрес первого элемента в линейном списке однозначно определяется адресом самого списка.Легкость добавления и удаления элементов так же является одним из достоинств данной структуры.

2.2 Структура для хранения номеров телефонов

Для хранения номеров телефона использовали так же список, но в данном случае односвязный. Каждый элемент представляется в виде двух полей: информационного (номера телефонов) и поля связок (указатель на следующий элемент списка).

Графическое представление данной структуры:

Рис. 2.2 Структура односвязного списка

Структура хранения номеров телефона в программе представлена в следующем виде: Telephone = record // телефон telephone: ANSISTRING; // номертелефона

TYPETEL: TYPETELEPHONE; //тип телефона (мобильный или домашний )

NEXTTELEPHONE: LINKTEL; // указатель на следующий номер телефона end;

Односвязный список оказался наиболее подходящей структурой для хранения номеров телефона. Эта структура легка в применении и эффективна для данной задачи.

2.3 Структура файла телефонной книги

Файл телефонного справочника с пользовательским расширением tlb, вкотором хранится данные о абонентах: ФИО, адрес, почта, номера телефонов. Данный файл можно открывать в таких приложения как блокнот.

3. Описание процедур и функций

Данная программа состоит из большого числа процедур и функций. Опишем их.

New Abonent (SURNAME, Name, SECONDNAME, Adress, Mail: ANSISTRING; Tel: LINKTEL) - процедура добавления нового абонента в телефонный справочник.

Входные данные: фамилия, имя, отчество, адрес, почта и номера телефона. В этой процедуре вызывается процедура Add Abonent.

NEXTSTEP (cur, new: ANSISTRING): Step - функция определяющая направление движения при сортировки абонентов в справочнике. Входные данные: текущий и новый элемент. Возвращает положение элемента при сортировки.

Add Abonent (Abonent: Link Abonent) - процедура добавления абонента и сортировки списка абонентов. Входные данные: абонент телефонного справочника. Из этой процедуры идет вызов функции NEXTSTEP.

Add Telephone (TELLIST: LINKTEL; Telephone: ANSISTRING; TYPETEL: TYPETELEPHONE) - процедура добавления номера телефона. Входные данные: список телефонов текущего абонента, новый номер телефона, тип нового номера.

OPENTELBOOK (FILENAME: ANSISTRING) - процедура, производящая загрузку или импорт телефонной книги. Входные данные: телефонная книга.

SAVETELBOOK (FILENAME: ANSISTRING): Integer - функция сохранения телефонного справочника. Входные данные: телефонный справочник.

FREEMEMBOOK () - процедура освобождения памяти телефонного справочника.

SHOWLISTABONENT (LISTBOX: TLISTBOX) - процедура отображения списков абонентов.

SHOWABONENT (abonent: LINKABONENT; SG1,SG2: TSTRINGGRID) - процедура отображения информации об абоненте .Входные данные: абонент. Из данной процедуры вызывается процедура SHOWALLTEL.

SHOWALLTEL (TELLIST: LINKTEL; SG: TSTRINGGRID) -процедура отображения телефонов абонента. Входные данные: список телефонов текущего абонента.

LIVESEARCH (FINDSTR: ANSISTRING; TYPES:TYPESEARCH) - процедура, реализующая живой поиск в телефонном справочнике. Входные данные: искомая подстрока, тип искомого элемента.

Create Telephone Book(): Integer - процедура создание новой телефонной книги. Функция возвращает единицу, если создан телефонный справочник.

Иерархия вызова функций имеет следующий вид (рис.3.1):

Рис.3.1 Иерархия вызовов функций

4. Описание структуры приложения и интерфейсапользователя

Программа имеет простой интерфейс для пользователя. Рассмотрим возможные операции данной программы.

Рис. 4.1 Главное окно программы

Рис. 4.2 Главное окно программы

1. Файл. Позволяет создать новую телефонную книгу, сохранить справочник, открыть или закрыть телефонный справочник.

2. В данном окне выводится абоненты занесенные в телефонную книгу.

3. Поисковая строка. В зависимости от того какой поиск реализуется, в поисковую строку будут вводиться соответствующие данные.

4. Параметры, по которым возможен поиск в рамках данной программы. Поиск можно производить по фамилии, телефону и оператору.

5. Кнопки позволяющие добавлять новый абонент, редактировать данные и удалять контакт из телефонного справочника.

6. Отображает данные абонента: фамилию, имя, отчество, адрес, электронную почту, номера телефонов и тип соответствующего телефона.

7. Выводит данные о каком-либо абоненты на печать.

Для открытия телефонной книге щелкните левой кнопкой мыши на поле «файл», выберите необходимое действие «открыть», появится новое окно, предлагающее выбрать телефонный справочник из ранее сохраненных (рис.7).

Рис. 7 Открытие телефонной книги

Рис. 8. Выводимые данные на печать

Печать данных происходить следующим образом. Сначала выбираем абонента, информацию о котором необходимо распечатать, щелкнем по кнопки печать и программа выдаст нам окно, содержащее данные абонента (рис.3), далее нажимаем снова печать и выбираем необходимый принтер (рис.4).

Рис. 9. Выбор принтера

Приложение имеет модульную структуру. В ее состав входит один модуль, который состоит из всех процедур и функций программы.

5. Системные требования и имеющиеся ограничения

Для работы программы требуются персональные компьютеры со следующими характеристиками: 1. Операционная система: Windows 98/NT/XP/VISTA/7 с установленным. Память: 108 Кбайт свободного места на жестком диске. Клавиатура, мышь.

2. Программа не имеет ограничений по количеству записей в телефонную книгу. Ограничения по объему записей будет только оперативной памяти.

3. Программа работает с файлами формата *.tlb, созданный данной программой. Она не предохранена от некорректного ввода данных из файла, поэтому если файл поврежден, поведение программы при открытии такого файла является непредвиденным. Программа не требует защиты и может свободно распространяться.

6. Результаты тестирования приложения

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

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

Результаты теста показаны ниже:

Рис. 6.1 Колво перестановок сортировки при 1000 записей

Рис. 6.2 Колво перестановок поиска при 1000 записей

Рис. 6.3 Колво перестановок сортировки при 5000 записей

Рис. 6.4 Колво перестановок сортировки при 5000 записей

7.Анализ временных характеристик и выводы

Результаты тестирования для десяти различных объемов данных представлены ниже в таблице и на графиках: Таблица 1

Зависимость перестановок при сортировке и поиске от объема

Количество записей 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000

Количество перестановок при сортировке 1309 3031 3088 3971 4726 6543 8159 10447 11085 12705

Количество перестановок при поиске 2000 4000 6044 8020 10086 12091 14110 16109 18130 19901

Рис. 7.1 Зависимость перестановок при сортировки от объема записей

Рис. 7.2 Зависимость перестановок при поиске от объема записей

Взглянув на графики, можно убедиться, что как и ожидалось из теории количество перестановок при сортировки и при поиске линейно растет от общего количества записей в телефонной книге. При увеличения объема записей возрастает количество перестановок.

Из графика видно, время работы справочника линейно зависит от объема загружаемых данных.

Рис. 7.3 Зависимость времени работы справочника от объема входных данных

Тем не менее, практическое сопоставление временной сложности с теоретической оценкой весьма затруднительно, поскольку для этого требуются специально подбирать вводимые данные, чтобы явно показать зависимость сложности перестановок и объема данных.

Заключение

В соответствии с заданием была разработана программа, имеющая удобный интерфейс, и предоставляющая возможность создания и редактирования телефонного справочника и поиск по различным параметрам. В ходе работы были рассмотрены алгоритм живого поиска, поиска подстроки в строке и сортировка, и проведен анализ их временной сложности. Задача была реализована в интегрированной среде разработки Borland Delphi 7.0.

Список литературы

1. Гагарина Л.Г. Алгоритмы и структуры данных: учеб. пособие/Л.Г. Гагарина, В.Д. Колдаев. - М.: , 2009. - 304 с.

2. Ахо А. Структуры данных и алгоритмы: учеб. пособие/ А. Ахо, Хопкрофт Д.Э., Ульман Д.Д.- М.:,2003. - 384с.

3. Поиск подстроки // Википедия - свободная ЭНЦИКЛОПЕДИЯURL: (дата обращения 03.05.2012)

4. Сортировка списка // Википедия - свободная энциклопедия URL: (дата обращения 28.04.2012)

5. Динамический поиск // Википедия - свободная энциклопедия URL: (дата обращения 17.05.2012) телефонный справочник программа алгоритм

Приложение

Текст программы

UNITUNIT1;

interface uses

Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, EXTCTRLS, STDCTRLS, Grids, Buttons, Mask;

type

TFORM1 = class(TFORM)

LISTBOX1: TLISTBOX;

Panel1: TPANEL;

MAINMENU1: TMAINMENU;

N1: TMENUITEM;

Panel3: TPANEL;

STRINGGRID1: TSTRINGGRID;

STRINGGRID2: TSTRINGGRID;

Panel2: TPANEL;

N2: TMENUITEM;

OPENDIALOG1: TOPENDIALOG;

N3: TMENUITEM;

N4: TMENUITEM;

Panel4: TPANEL;

Button1: TBUTTON;

COMBOBOX1: TCOMBOBOX;

Button2: TBUTTON;

Panel5: TPANEL;

Button3: TBUTTON;

Button4: TBUTTON;

Button5: TBUTTON;

Button6: TBUTTON;

Button7: TBUTTON;

Button8: TBUTTON;

Edit2: TEDIT;

RADIOGROUP1: TRADIOGROUP;

BITBTN1: TBITBTN;

Button9: TBUTTON;

Label2: TLABEL;

Button10: TBUTTON;

N5: TMENUITEM;

SAVEDIALOG1: TSAVEDIALOG;

N6: TMENUITEM;

Label1: TLABEL;

MASKEDIT1: TMASKEDIT;

MASKEDIT2: TMASKEDIT;

COMBOBOX2: TCOMBOBOX;

Timer1: TTIMER;

Label3: TLABEL;

procedure FORMCREATE(Sender: TOBJECT);

procedure N2Click(Sender: TOBJECT);

procedure N3Click(Sender: TOBJECT);

procedure N4Click(Sender: TOBJECT);

procedure LISTBOX1Click(Sender: TOBJECT);

procedure Button1Click(Sender: TOBJECT);

procedure Button5Click(Sender: TOBJECT);

procedure Button6Click(Sender: TOBJECT);

procedure Button2Click(Sender: TOBJECT);

procedure Button4Click(Sender: TOBJECT);

procedure Button7Click(Sender: TOBJECT);

procedure Button3Click(Sender: TOBJECT);

procedure Button8Click(Sender: TOBJECT);

procedure Edit2KEYUP(Sender: TOBJECT; var Key: Word;

Shift: TSHIFTSTATE);

procedure RADIOGROUP1Click(Sender: TOBJECT);

procedure BITBTN1Click(Sender: TOBJECT);

procedure Button9Click(Sender: TOBJECT);

procedure Button10Click(Sender: TOBJECT);

procedure N5Click(Sender: TOBJECT);

procedure N6Click(Sender: TOBJECT);

procedure FORMCLOSE(Sender: TOBJECT; var Action: TCLOSEACTION);

procedure MASKEDIT2Change(Sender: TOBJECT);

procedure MASKEDIT1Change(Sender: TOBJECT);

procedure COMBOBOX1Change(Sender: TOBJECT);

procedure COMBOBOX2Change(Sender: TOBJECT);

procedure Timer1Timer(Sender: TOBJECT);

// procedure STRINGGRID2Click(Sender: TOBJECT);

private

{ Private declarations } public

{ Public declarations } end;

type

LINKTEL = ^Telephone;

TYPETELEPHONE = (Mobile, Home);

Saved = (YESSAVED, NOSAVED);

Step = (Equal,less,more);

Action = (Add, Edit);

TYPESEARCH = (SURNAME,Name);

Telephone = record telephone: ANSISTRING;

TYPETEL: TYPETELEPHONE;

NEXTTELEPHONE: LINKTEL; // указатель на следующий номер телнфона end;

type tmas=array [1..10] of string;

constmegafon:tmas=("920","","","","","","","","","");

tele2:tmas=("908","904","950","951","","","","","","");

mtc:tmas=("910","915","","","","","","","","");

beeline:tmas=("903","906","960","","","","","","","");

type

LINKABONENT = ^Abonent; //ссылка на запись абонент

Abonent = record //абонент

Name:ANSISTRING;

SURNAME:ANSISTRING;

SECONDNAME:ANSISTRING;

Tel:LINKTEL; //списоктелефоновабонента

Adress:ANSISTRING;

Mail:ANSISTRING;

NEXTABONENT: LINKABONENT; //следующийобнентвспискеабонентов

BACKABONENT: LINKABONENT; //предыдущий index:Integer; //порядковыйномеротображаемогоабонента show:Integer; //отображается или нет абонент end;

var

Form1: TFORM1;

time:real;

TELEPHONEBOOK,CURABONENT: LINKABONENT; //ссылка на начало списка абонентов и на текущий абонент save: Saved = YESSAVED; //сохранена или нет тел. книга

FILENAME:ANSISTRING; //имя файла телефонной книги

TELLIST,EDITTEL:LINKTEL; //список телефонов текущего абонента и ссылка на редактируемый телефон

ABACTION,TELACTION:Action; //события: добавлять или удалять абонента;

добавлять или удалять телефон function CREATETELEPHONEBOOK():Integer;

procedure

ADDTELEPHONE(VARTELLIST:LINKTEL;Telephone:ANSISTRING;TYPETEL:TYPETELE phone);

procedure

NEWABONENT(SURNAME,Name,SECONDNAME,Adress,Mail:ANSISTRING;Tel:Lin

KTEL);

procedure ADDABONENT(Abonent:LINKABONENT);

procedure OPENTELBOOK(FILENAME:ANSISTRING);

function SAVETELBOOK(FILENAME:ANSISTRING):Integer;

procedure FREEMEMBOOK();

procedure SHOWLISTABONENT(LISTBOX:TLISTBOX);

procedure SHOWALLTEL(TELLIST:LINKTEL;SG:TSTRINGGRID);

procedure LIVESEARCH(FINDSTR:ANSISTRING;TYPES:TYPESEARCH);

procedure vykl();

function proverka(mas:tmas; str:string):boolean;

implementation uses PRINTFORM, COMCTRLS;

{$R *.dfm} procedure

NEWABONENT(SURNAME,Name,SECONDNAME,Adress,Mail:ANSISTRING;Tel:Lin

KTEL); //добавлениеновогоабонента var

NEWABONENT:LINKABONENT;

begin

New(NEWABONENT);

NEWABONENT.Name:=Name;

NEWABONENT.SURNAME:=SURNAME;

NEWABONENT.SECONDNAME:=SECONDNAME;

NEWABONENT.Adress:=Adress;

NEWABONENT.Tel:=Tel;

NEWABONENT.Mail:=Mail;

ADDABONENT(NEWABONENT);

end;

function NEXTSTEP(cur,new:ANSISTRING):Step;

//направлениедвиженияприсортировкеабонентов var i:Integer;

begin for i:=1 to Length(cur) do begin if i<=Length(new) then begin if(cur [i]=new [i]) then

Continue;

if cur [i]<new [i] then begin

Result:=Less;

exit;

end else begin

Result:=More;

exit;

end;

end else begin

Result:=More;

exit;

end;

end;

if (i-1)=Length(new) then

Result:=Equal else

Result:=Less;

end;

procedure ADDABONENT(Abonent:LINKABONENT);

//добавлениеабонентаисортировкаспискаабонентов var

CURABONENT:LINKABONENT;

next:Step;

begin if TELEPHONEBOOK.NEXTABONENT=nil then begin

Abonent.BACKABONENT:=TELEPHONEBOOK;

Abonent.NEXTABONENT:=TELEPHONEBOOK.NEXTABONENT;

TELEPHONEBOOK.NEXTABONENT:=Abonent;

Abonent.show:=1;

exit;

end;

Form1.Timer1.Enabled:=true;

CURABONENT:=TELEPHONEBOOK.NEXTABONENT;

while (CURABONENTNIL) do begin next:=NEXTSTEP(CURABONENT.SURNAME,Abonent.SURNAME);

if NEXTEQUAL then if next=Less then begin if(CURABONENT.NEXTABONENT=nil) then break;

CURABONENT:=CURABONENT.NEXTABONENT;

end else begin

CURABONENT:=CURABONENT.BACKABONENT;

break;

end else begin next:=NEXTSTEP(CURABONENT.Name,Abonent.Name);

if NEXTEQUAL then if next=Less then begin if(CURABONENT.NEXTABONENT=nil) then break;

CURABONENT:=CURABONENT.NEXTABONENT;

end else begin

CURABONENT:=CURABONENT.BACKABONENT;

break;

end else begin next:=NEXTSTEP(CURABONENT.SECONDNAME,Abonent.SECONDNAME);

if(next=Equal) then begin if(CURABONENT.NEXTABONENT=nil) then break;

CURABONENT:=CURABONENT.NEXTABONENT;

end else if (next=Less) then begin if(CURABONENT.NEXTABONENT=nil) then break;

CURABONENT:=CURABONENT.NEXTABONENT;

end else begin

CURABONENT:=CURABONENT.BACKABONENT;

break;

end;

end;

end;

end;

Form1.Timer1.Enabled:=false;

Abonent.BACKABONENT:=CURABONENT;

Abonent.NEXTABONENT:=CURABONENT.NEXTABONENT;

if(CURABONENT.NEXTABONENTNIL) then

CURABONENT.NEXTABONENT.BACKABONENT:=Abonent;

CURABONENT.NEXTABONENT:=Abonent;

CURABONENT.NEXTABONENT.show:=1;

end;

procedure

ADDTELEPHONE(VARTELLIST:LINKTEL;Telephone:ANSISTRING;TYPETEL:TYPETELE phone); //добавлениетелефона var

CURTEL:LINKTEL;

begin if Telephone="" then exit;

if TELLIST=nil then begin

New(TELLIST);

TELLIST.telephone:=Telephone;

TELLIST.TYPETEL:=TYPETEL;

TELLIST.NEXTTELEPHONE:=nil;

exit;

end;

CURTEL:=TELLIST;

while(CURTEL.NEXTTELEPHONENIL) do

CURTEL:=CURTEL.NEXTTELEPHONE;

New(CURTEL.NEXTTELEPHONE);

CURTEL.NEXTTELEPHONE.telephone:=Telephone;

CURTEL.NEXTTELEPHONE.TYPETEL:=TYPETEL;

CURTEL.NEXTTELEPHONE.NEXTTELEPHONE:=nil;

end;

procedure OPENTELBOOK(FILENAME:ANSISTRING);

//загрузкаилиимпорттелефоннойкниги var

FILEBOOK: TEXTFILE;

buffer:ANSISTRING;

Abonent: LINKABONENT;

TYPET:Integer;

begin

ASSIGNFILE(FILEBOOK,FILENAME);

Reset(FILEBOOK);

while not Eof(FILEBOOK) do begin

Readln(FILEBOOK,buffer);

if buffer="$" then begin

New(Abonent);

Abonent.Tel:=nil;

Readln(FILEBOOK,Abonent.SURNAME);

Readln(FILEBOOK,Abonent.Name);

Readln(FILEBOOK,Abonent.SECONDNAME);

Readln(FILEBOOK,Abonent.Adress);

Readln(FILEBOOK,buffer);

if buffer="%" then begin

Readln(FILEBOOK,buffer);

repeat

TYPET:=STRTOINT(buffer [Length(buffer)]);

Delete(buffer,Length(buffer)-1,2);

if(TYPET=Integer(Mobile)) then

ADDTELEPHONE(Abonent.Tel,buffer,Mobile) else

ADDTELEPHONE(Abonent.Tel,buffer,Home);

Readln(FILEBOOK,buffer);

until buffer="%";

end;

Readln(FILEBOOK,Abonent.mail);

ADDABONENT(Abonent);

end;

end;

CLOSEFILE(FILEBOOK);

end;

function SAVETELBOOK(FILENAME:ANSISTRING):Integer;

//сохранениетелефоннойкниги var

FILEBOOK:TEXTFILE;

CURABONENT:LINKABONENT;

CURTEL:LINKTEL;

begin

ASSIGNFILE(FILEBOOK,FILENAME);

Rewrite(FILEBOOK);

CURABONENT:=TELEPHONEBOOK.NEXTABONENT;

while CURABONENTNIL do begin

Writeln(FILEBOOK,"$");

Writeln(FILEBOOK,CURABONENT.SURNAME);

Writeln(FILEBOOK,CURABONENT.Name);

Writeln(FILEBOOK,CURABONENT.SECONDNAME);

Writeln(FILEBOOK,CURABONENT.Adress);

CURTEL:=CURABONENT.Tel;

if CURTELNIL then begin

Writeln(FILEBOOK,"%");

while CURTELNIL do begin

Writeln(FILEBOOK,CURTEL.telephone "|" INTTOSTR(Integer(CURTEL.TYPETEL)));

CURTEL:=CURTEL.NEXTTELEPHONE;

end;

Writeln(FILEBOOK,"%");

end;

Writeln(FILEBOOK,CURABONENT.mail);

CURABONENT:=CURABONENT.NEXTABONENT;

end;

CLOSEFILE(FILEBOOK);

Result:=1;

end;

PROCEDUREFREEMEMBOOK(); //освобождение памяти телефонной книги var

CURAB:LINKABONENT;

NEXTTEL:LINKTEL;

begin

CURAB:=TELEPHONEBOOK.NEXTABONENT;

while CURABNIL do begin while CURAB.Telnil do begin

NEXTTEL:=CURAB.Tel.NEXTTELEPHONE;

Dispose(CURAB.Tel);

CURAB.Tel:=NEXTTEL;

end;

TELEPHONEBOOK.NEXTABONENT:=CURAB.NEXTABONENT;

Dispose(CURAB);

CURAB:=TELEPHONEBOOK.NEXTABONENT;

end;

end;

procedure SHOWLISTABONENT(LISTBOX:TLISTBOX);

//отображениеспискаабонентов var abonent:LINKABONENT;

NUMAB:Integer;

begin

NUMAB:=0;

LISTBOX.Clear;

abonent:=TELEPHONEBOOK.NEXTABONENT;

while abonent nil do begin if(abonent.show=1)then begin

LISTBOX.Items.Add(abonent.SURNAME " " abonent.Name "

" abonent.SECONDNAME);

abonent.index:=NUMAB;

Inc(NUMAB);

end else abonent.index:=-1;

abonent:=abonent.NEXTABONENT;

end;

end;

procedure SHOWABONENT(abonent:LINKABONENT;SG1,SG2:TSTRINGGRID);

//отображениеинформацииобабоненте var tel:LINKTEL;

begin with SG1 do begin

Cols [1].Clear;

Cells [1,0]:=abonent.SURNAME;

Cells [1,1]:=abonent.Name;

Cells [1,2]:=abonent.SECONDNAME;

Cells [1,3]:=abonent.Adress;

Cells [1,4]:=abonent.Mail;

end;

tel:=abonent.Tel;

SHOWALLTEL(tel,SG2);

end;

procedure SHOWALLTEL(TELLIST:LINKTEL;SG:TSTRINGGRID);

//отображениетелефоновабонента var

COLTEL:Integer;

CURTEL:LINKTEL;

begin

COLTEL:=0;

CURTEL:=TELLIST;

SG.ROWCOUNT:=2;

SG.Rows [1].Clear;

while(CURTELNIL)do begin if COLTEL>0 then

SG.ROWCOUNT:=SG.ROWCOUNT 1;

SG.Cells [0,SG.ROWCOUNT-1]:=CURTEL.telephone;

if(CURTEL.TYPETEL=Mobile)then

SG.Cells [1,SG.ROWCOUNT-1]:="Мобильный" else

SG.Cells [1,SG.ROWCOUNT-1]:="Домашний";

Inc(COLTEL);

CURTEL:=CURTEL.NEXTTELEPHONE;

end;

end;

procedure LIVESEARCH(FINDSTR:ANSISTRING;TYPES:TYPESEARCH); //живойпоиск var

CURAB:LINKABONENT;

FINDTEMP:ANSISTRING;

i,show:Integer;

tel:LINKTEL;

begin if FINDSTR="" then vykl else begin

CURAB:=TELEPHONEBOOK.NEXTABONENT;

while CURABNIL do begin if TYPES=SURNAME then

FINDTEMP:=CURAB.SURNAME else begin tel:=CURAB.Tel;

while telnil do begin

CURAB.show:=0;

FINDTEMP:=tel.telephone;

if Length(FINDTEMP)>=Length(FINDSTR) then for i:=1 to Length(FINDSTR) do begin if (FINDSTR [i]FINDTEMP [i]) then begin

CURAB.show:=0;

break;

end;

CURAB.show:=1;

end;

if CURAB.show=0 then tel:=tel.NEXTTELEPHONE else break;

end;

CURAB:=CURAB.NEXTABONENT;

Continue;

end;

if(Length(FINDTEMP)<Length(FINDSTR))then

CURAB.show:=0 else begin show:=1;

for i:=1 to Length(FINDSTR) do if FINDSTR [i]FINDTEMP [i] then begin show:=0;

break;

end;

if show=0 then

CURAB.show:=0 else

CURAB.show:=1;

end;

CURAB:=CURAB.NEXTABONENT;

end; end;

end;

function CREATETELEPHONEBOOK():Integer; //созданиеновойкниги var otvet: Integer;

begin if save=NOSAVED then begin otvet:=Application.MESSAGEBOX("Файлнесохранен.

Сохранитьизменения?","Сообщение",MB_YESNOCANCEL

MB_ICONINFORMATION);

if(otvet=IDCANCEL)then begin

Result:=0;

exit;

end;

if(otvet=IDYES)then begin

SAVETELBOOK(FILENAME);

end;

end;

if(TELEPHONEBOOKNIL)then

FREEMEMBOOK();

New(TELEPHONEBOOK);

TELEPHONEBOOK.NEXTABONENT := nil;

TELEPHONEBOOK.BACKABONENT := nil;

Result:=1;

end;

//------------------------------------------------------------------------------- procedure TFORM1.FORMCREATE(Sender: TOBJECT);

begin

STRINGGRID1.Cells [0,0]:="Фамилия";

STRINGGRID1.Cells [0,1]:="Имя";

STRINGGRID1.Cells [0,2]:="Отчество";

STRINGGRID1.Cells [0,3]:="Адрес";

STRINGGRID1.Cells [0,4]:="Электроннаяпочта";

STRINGGRID2.Cells [0,0]:="Телефон";

STRINGGRID2.Cells [1,0]:="Типтелефона";

MASKEDIT1.Visible:=true;

MASKEDIT2.Visible:=False;

end;

procedure TFORM1.N2Click(Sender: TOBJECT); //созданиеновойкниги begin

CREATETELEPHONEBOOK;

FILENAME:="";

LISTBOX1.Enabled:=True;

Button1.Enabled:=True;

Button3.Enabled:=True;

Button9.Enabled:=True;

BITBTN1.Enabled:=True;

Edit2.Enabled:=True;

RADIOGROUP1.Enabled:=True;

N5.Enabled:=True;

LISTBOX1.Clear;

STRINGGRID1.Cols [1].Clear;

STRINGGRID2.ROWCOUNT:=2;

STRINGGRID2.Rows [1].Clear;

Edit2.Text:="";

RADIOGROUP1.ITEMINDEX:=0;

end;

procedure TFORM1.N3Click(Sender: TOBJECT); //открытиекниги begin time:=0;

Timer1.Enabled:=true;

if OPENDIALOG1.Execute then begin

CREATETELEPHONEBOOK();

FILENAME:=OPENDIALOG1.FILENAME;

OPENTELBOOK(FILENAME);

SHOWLISTABONENT(LISTBOX1);

LISTBOX1.Enabled:=True;

Button1.Enabled:=True;

Button3.Enabled:=True;

Button9.Enabled:=True;

BITBTN1.Enabled:=True;

Edit2.Enabled:=True;

RADIOGROUP1.Enabled:=True;

N5.Enabled:=True;

end;

Timer1.Enabled:=false;

Label3.Caption:=FLOATTOSTR(time) " msec.";

end;

procedure TFORM1.N4Click(Sender: TOBJECT); //сохранениекниги begin if(FILENAME="")then if SAVEDIALOG1.Execute then

FILENAME:=SAVEDIALOG1.FILENAME else exit;

if SAVETELBOOK(FILENAME)=1 then begin save:=YESSAVED;

N4.Enabled:=False;

end;

end;

procedure TFORM1.LISTBOX1Click(Sender: TOBJECT);

//отображениеинформацииобабоненте begin

CURABONENT:=TELEPHONEBOOK.NEXTABONENT;

while ((CURABONENT.INDEXLISTBOX1.ITEMINDEX) and (CURABONENTNIL)) do

CURABONENT:=CURABONENT.NEXTABONENT;

SHOWABONENT(CURABONENT,STRINGGRID1,STRINGGRID2);

end;

procedure TFORM1.Button1Click(Sender: TOBJECT);

//добавлениеновогоабонента begin

N1.Enabled:=False;

Panel5.Visible:=True;

Button1.Enabled:=False;

Button3.Enabled:=False;

Button9.Enabled:=False;

BITBTN1.Enabled:=False;

LISTBOX1.Enabled:=False;

Edit2.Enabled:=False;

RADIOGROUP1.Enabled:=False;

STRINGGRID1.Enabled:=True;

STRINGGRID1.Cols [1].Clear;

STRINGGRID2.ROWCOUNT:=2;

STRINGGRID2.Cells [0,1]:="";

STRINGGRID2.Cells [1,1]:="";

ABACTION:=Add;

TELLIST:=nil;

end;

procedure TFORM1.Button5Click(Sender: TOBJECT);

//сохранениеизмененийданныхабонента begin if ABACTION=Add then with STRINGGRID1 do begin if (Cells [1,0]"")or(Cells [1,1]"")or(Cells [1,2]"")then

NEWABONENT(Cells [1,0],Cells [1,1],Cells [1,2],Cells [1,3],Cells

[1,4],TELLIST) else begin

Application.MESSAGEBOX("Заполните хотя бы одно из полей: Фамилия,Имя или Отчество!","Недостаточноданных",MB_OK MB_ICONINFORMATION);

exit;

end;

end else begin with STRINGGRID1 do begin

CURABONENT.SURNAME:=Cells [1,0];

CURABONENT.Name:=Cells [1,1];

CURABONENT.SECONDNAME:=Cells [1,2];

CURABONENT.Adress:=Cells [1,3];

CURABONENT.Mail:=Cells [1,4];

end;

CURABONENT.Tel:=TELLIST;

CURABONENT.BACKABONENT.NEXTABONENT:=CURABONENT.NEXTABONENT;

if(CURABONENT.NEXTABONENTNIL) then

CURABONENT.NEXTABONENT.BACKABONENT:=CURABONENT.BACKABONENT;

ADDABONENT(CURABONENT);

end;

N1.Enabled:=True;

Panel5.Visible:=False;

Button1.Enabled:=True;

Button3.Enabled:=True;

Button9.Enabled:=True;

LISTBOX1.Enabled:=True;

STRINGGRID1.Enabled:=False;

Edit2.Enabled:=True;

RADIOGROUP1.Enabled:=True;

BITBTN1.Enabled:=True;

SHOWLISTABONENT(LISTBOX1);

LISTBOX1.ITEMINDEX:=0;

LISTBOX1Click(Sender);

save:=NOSAVED;

N4.Enabled:=True;

end;

procedure TFORM1.Button6Click(Sender: TOBJECT); //отменаизменений begin

N1.Enabled:=True;

Panel5.Visible:=False;

Button1.Enabled:=True;

Button3.Enabled:=True;

Button9.Enabled:=True;

LISTBOX1.Enabled:=True;

STRINGGRID1.Enabled:=False;

Edit2.Enabled:=True;

RADIOGROUP1.Enabled:=True;

BITBTN1.Enabled:=True;

LISTBOX1.ITEMINDEX:=0;

LISTBOX1Click(Sender);

end;

procedure TFORM1.Button2Click(Sender: TOBJECT); //добавление или сохранение изменений телефонов абонента begin

Panel4.Visible:=False;

Button7.Enabled:=True;

Button6.Enabled:=True;

Button5.Enabled:=True;

Button8.Enabled:=True;

Button10.Enabled:=True;

STRINGGRID1.Enabled:=True;

if(TELACTION=Add)then begin if(MASKEDIT1.Text"")or (MASKEDIT2.Text"") then if(COMBOBOX1.ITEMINDEX=0) then

ADDTELEPHONE(TELLIST,MASKEDIT1.Text,Mobile) else

ADDTELEPHONE(TELLIST,MASKEDIT2.Text,Home);

end else

//begin if(COMBOBOX1.ITEMINDEX=0) then begin

EDITTEL.telephone:=MASKEDIT1.Text;

EDITTEL.TYPETEL:=TYPETELEPHONE(COMBOBOX1.ITEMINDEX);

end else begin

EDITTEL.telephone:=MASKEDIT2.Text;

EDITTEL.TYPETEL:=TYPETELEPHONE(COMBOBOX1.ITEMINDEX);

end;

SHOWALLTEL(TELLIST,STRINGGRID2);

save:=NOSAVED;

N4.Enabled:=True;

end;

procedure TFORM1.Button4Click(Sender: TOBJECT);

//отменаобавленияилиизменениятелефонаабонента begin

Panel4.Visible:=False;

Button7.Enabled:=True;

Button6.Enabled:=True;

Button5.Enabled:=True;

Button8.Enabled:=True;

Button10.Enabled:=True;

STRINGGRID1.Enabled:=True;

end;

procedure TFORM1.Button7Click(Sender: TOBJECT); //добавлениетелефона begin

Panel4.Visible:=True;

Button7.Enabled:=False;

Button5.Enabled:=False;

Button6.Enabled:=False;

Button8.Enabled:=False;

Button10.Enabled:=False;

STRINGGRID1.Enabled:=False;

MASKEDIT1.Text:="";

MASKEDIT2.Text:="";

end;

procedure TFORM1.Button3Click(Sender: TOBJECT);

//редактированиеданныхабонента begin if(LISTBOX1.ITEMINDEX<0)then begin

Application.MESSAGEBOX("Выбиритеабонентадляредактирования!","Невыб ранабонент",MB_OK MB_ICONINFORMATION);

exit;

end;

N1.Enabled:=False;

Panel5.Visible:=True;

Button1.Enabled:=False;

Button3.Enabled:=False;

Button9.Enabled:=False;

BITBTN1.Enabled:=False;

LISTBOX1.Enabled:=False;

Edit2.Enabled:=False;

RADIOGROUP1.Enabled:=False;

STRINGGRID1.Enabled:=True;

TELLIST:=CURABONENT.Tel;

ABACTION:=Edit;

SHOWABONENT(CURABONENT,STRINGGRID1,STRINGGRID2);

end;

procedure TFORM1.Button8Click(Sender: TOBJECT);

//редактированиетелефона var index:Integer;

begin if(STRINGGRID2.Row<1)then begin

Application.MESSAGEBOX("Выбиритетелефондляредактирования!","Невыб рантелефон",MB_OK MB_ICONINFORMATION);

exit;

end;

if(TELLIST=nil)then exit;

if STRINGGRID2.Row<0 then

STRINGGRID2.Row:=0;

index:=1;

EDITTEL:=TELLIST;

while ((INDEXSTRINGGRID2.Row) and (EDITTELNIL)) do begin

EDITTEL:=EDITTEL.NEXTTELEPHONE;

Inc(index);

end;

if EDITTEL.TYPETEL=Home then begin

MASKEDIT2.Text:=EDITTEL.telephone;

MASKEDIT1.Visible:=false;

MASKEDIT2.Visible:=true;

end else begin

MASKEDIT1.Text:=EDITTEL.telephone;

MASKEDIT2.Visible:=false;

MASKEDIT1.Visible:=true;

end;

COMBOBOX1.ITEMINDEX:=Integer(EDITTEL.TYPETEL);

TELACTION:=Edit;

Panel4.Visible:=True;

Button7.Enabled:=False;

Button5.Enabled:=False;

Button6.Enabled:=False;

Button8.Enabled:=False;

Button10.Enabled:=False;

STRINGGRID1.Enabled:=False;

end;

procedure TFORM1.Edit2KEYUP(Sender: TOBJECT; var Key: Word;

//живойпоиск, отображениесписканайденных

Shift: TSHIFTSTATE);

begin time:=0;

Timer1.Enabled:=true;

LIVESEARCH(Edit2.Text,TYPESEARCH(RADIOGROUP1.ITEMINDEX));

SHOWLISTABONENT(LISTBOX1);

Timer1.Enabled:=false;

label3.Caption:=FLOATTOSTR(time) " msec.";

end;

procedure TFORM1.RADIOGROUP1Click(Sender: TOBJECT);

begin vykl();

if RADIOGROUP1.ITEMINDEX=1 then begin

Edit2.Visible:=false;

COMBOBOX2.Visible:=true;

end else begin

COMBOBOX2.Visible:=false;

Edit2.Visible:=true;

end;

end;

procedure TFORM1.BITBTN1Click(Sender: TOBJECT);

//выводнапечатьданныхабонента var tel:LINKTEL;

begin if LISTBOX1.ITEMINDEX<0 then begin

Application.MESSAGEBOX("Невыбранабонентдлявыводанапечать","Сообщение",MB_OK MB_ICONINFORMATION);

exit;

end;

with Form2.RICHEDIT1 do begin

Clear;

Paragraph.FIRSTINDENT:=30;

Font.Size:=14;

Paragraph.Alignment:=TACENTER;

Lines.Add("Данныеабонента");

Paragraph.Alignment:=TALEFTJUSTIFY;

Lines.Add("Фамилия - " CURABONENT.SURNAME);

Lines.Add("Имя - " CURABONENT.Name);

Lines.Add("Отчество - " CURABONENT.SECONDNAME);

Lines.Add("Адрес: " CURABONENT.Adress);

Lines.Add("Почта: " CURABONENT.Mail);

tel:=CURABONENT.Tel;

if telnil then begin

Paragraph.Alignment:=TACENTER;

Lines.Add("Телефоныабонента");

Paragraph.Alignment:=TALEFTJUSTIFY;

end;

while telnil do begin if(tel.TYPETEL=Mobile)then

Lines.Add("Мобильный: " tel.telephone) else

Lines.Add("Домашний: " tel.telephone);

tel:=tel.NEXTTELEPHONE;

end;

Lines.Add("");

end;

Form1.Enabled:=False;

Form2.Visible:=True;

end;

procedure TFORM1.Button9Click(Sender: TOBJECT); //удалениеабонента begin if(LISTBOX1.ITEMINDEX<0)then begin

Application.MESSAGEBOX("Выбиритеабонентадляудаления","Невыбранабо нент",MB_OK MB_ICONINFORMATION);

exit;

end;

if(Application.MESSAGEBOX("Выдействительнохотитеудалитьконтакт?","У далениеконтакта",MB_YESNO

MB_ICONINFORMATION)=IDYES)then begin

CURABONENT.BACKABONENT.NEXTABONENT:=CURABONENT.NEXTABONENT;

if CURABONENT.NEXTABONENTNIL then

CURABONENT.NEXTABONENT.BACKABONENT:=CURABONENT.BACKABONENT;

Dispose(CURABONENT);

SHOWLISTABONENT(LISTBOX1);

LISTBOX1.ITEMINDEX:=0;

LISTBOX1Click(Sender);

save:=NOSAVED;

end;

end;

procedure TFORM1.Button10Click(Sender: TOBJECT); //удалениетелефона var

DELTEL,BACKTEL:LINKTEL;

index:Integer;

begin if(STRINGGRID2.Row<1)then begin

Application.MESSAGEBOX("Выбиритетелефондляудаления!","Невыбрантел ефон",MB_OK MB_ICONINFORMATION);

exit;

end;

if(TELLIST=nil)then exit;

if STRINGGRID2.Row<0 then

STRINGGRID2.Row:=0;

if(Application.MESSAGEBOX("Выдействительнохотитеудалитьтелефон?","У далениетелефона",MB_YESNO

MB_ICONINFORMATION)=IDYES)then begin index:=1;

DELTEL:=TELLIST;

BACKTEL:=nil;

while ((INDEXSTRINGGRID2.Row) and (DELTELNIL)) do begin

BACKTEL:=DELTEL;

DELTEL:=DELTEL.NEXTTELEPHONE;

Inc(index);

end;

if BACKTELNIL then

BACKTEL.NEXTTELEPHONE:=DELTEL.NEXTTELEPHONE;

if(DELTEL=TELLIST)then

TELLIST:=nil;

Dispose(DELTEL);

save:=NOSAVED;

end;

SHOWALLTEL(TELLIST,STRINGGRID2);

end;

procedure TFORM1.N5Click(Sender: TOBJECT); //импорткниги begin if(OPENDIALOG1.Execute)then begin

OPENTELBOOK(OPENDIALOG1.FILENAME);

SHOWLISTABONENT(LISTBOX1);

end;

end;

procedure TFORM1.N6Click(Sender: TOBJECT); //закрытиекниги begin

CREATETELEPHONEBOOK;

FILENAME:="";

N4.Enabled:=False;

N5.Enabled:=False;

LISTBOX1.Clear;

STRINGGRID1.Cols [1].Clear;

STRINGGRID2.ROWCOUNT:=2;

STRINGGRID2.Rows [1].Clear;

Edit2.Text:="";

RADIOGROUP1.ITEMINDEX:=0;

LISTBOX1.Enabled:=False;

Button1.Enabled:=False;

Button3.Enabled:=False;

Button9.Enabled:=False;

BITBTN1.Enabled:=False;

Edit2.Enabled:=False;

RADIOGROUP1.Enabled:=False;

save:=YESSAVED;

end;

procedure TFORM1.FORMCLOSE(Sender: TOBJECT; var Action: TCLOSEACTION);

begin

CREATETELEPHONEBOOK;

end;

procedure TFORM1.MASKEDIT2Change(Sender: TOBJECT);

begin if(COMBOBOX1.ITEMINDEX=0) then begin

MASKEDIT1.Visible:=true;

MASKEDIT2.Visible:=false;

end else begin

MASKEDIT1.Visible:=false;

MASKEDIT2.Visible:=true;

end;

end;

procedure TFORM1.MASKEDIT1Change(Sender: TOBJECT);

begin if(COMBOBOX1.ITEMINDEX=0) then begin

MASKEDIT1.Visible:=true;

MASKEDIT2.Visible:=false;

end else begin

MASKEDIT1.Visible:=false;

MASKEDIT2.Visible:=true;

end;

end;

procedure TFORM1.COMBOBOX1Change(Sender: TOBJECT);

begin if(COMBOBOX1.ITEMINDEX=0) then begin

MASKEDIT1.Visible:=true;

MASKEDIT2.Visible:=false;

end else begin

MASKEDIT1.Visible:=false;

MASKEDIT2.Visible:=true;

end;

end;

procedure POISKOPERATOR(FINDSTRAR:tmas);

VARCURAB:LINKABONENT;

FINDTEMP,FINDSTR:ANSISTRING;

i,show,j:Integer;

tel:LINKTEL;

begin

CURAB:=TELEPHONEBOOK.NEXTABONENT;

while CURABNIL do begin tel:=CURAB.Tel;

while telnil do begin

CURAB.show:=0;

if tel.TYPETEL=Mobile then begin

FINDTEMP:=tel.telephone;

if proverka(FINDSTRAR,FINDTEMP) then begin

CURAB.show:=1;

break;

end else if CURAB.show=0 then tel:=tel.NEXTTELEPHONE else break;

end else begin

CURAB.show:=0;

tel:=tel.NEXTTELEPHONE;

Continue;

end;

end;

CURAB:=CURAB.NEXTABONENT;

Continue;

end;

end;

procedure TFORM1.COMBOBOX2Change(Sender: TOBJECT);

begin time:=0;

Timer1.Enabled:=true;

if Combobox2.ITEMINDEX=1 then

POISKOPERATOR(beeline) else if Combobox2.ITEMINDEX=2 then

POISKOPERATOR(megafon) else if Combobox2.ITEMINDEX=3 then

POISKOPERATOR(mtc) else if Combobox2.ITEMINDEX=4 then

POISKOPERATOR(tele2);

if Combobox2.ITEMINDEX=0 then vykl();

SHOWLISTABONENT(LISTBOX1);

Timer1.Enabled:=false;

Label3.Caption:=FLOATTOSTR(time) " msec.";

end;

procedure vykl();

VARCURAB:LINKABONENT;

begin

CURAB:=TELEPHONEBOOK.NEXTABONENT;

while CURABNIL do begin

CURAB.show:=1;

CURAB:=CURAB.NEXTABONENT;

end;

end;

function proverka(mas:tmas; str:string):boolean;

var s:string;

i:integer;

begin proverka:=false;

s:= copy(str,1,3);

for i:=0 to 9 do if mas [i]=s then begin proverka:=true;

break;

end;

end;

procedure TFORM1.Timer1Timer(Sender: TOBJECT);

begin time:=time 1;

end;

end.

Код программы тестирования: UNITUNIT1;

interface uses

Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, STDCTRLS;

type

TFORM1 = class(TFORM)

Edit1: TEDIT;

Label1: TLABEL;

Button1: TBUTTON;

procedure Button1Click(Sender: TOBJECT);

private

{ Private declarations } public

{ Public declarations } end;

function Nam():string;

function Tel():string;

function Teld():string;

type tmas=array [1..33] of string;

var

Form1: TFORM1;

n:integer;

FILEBOOK:TEXTFILE;

const c:tmas=("а","б","в","г","д","е","е","ж","з","и","й","к","л","м","н","о","п","р","с","т","у","ф","х","ц"," ч","ш","щ","ъ","ы","ь","э","ю","я");

implementation

{$R *.dfm} procedure TFORM1.Button1Click(Sender: TOBJECT);

var i:integer; Ne:string;

begin

ASSIGNFILE(FILEBOOK,"c:\test.tlb");

Rewrite(FILEBOOK);

n:=STRTOINT(Edit1.Text);

i:=0;

while i<n do begin

Writeln(FILEBOOK,"$");

Writeln(FILEBOOK,Nam());

Writeln(FILEBOOK,Nam());

Writeln(FILEBOOK,Nam());

Writeln(FILEBOOK,"");

Writeln(FILEBOOK,"%");

Writeln(FILEBOOK,Tel());

Writeln(FILEBOOK,Teld());

Writeln(FILEBOOK,"%");

Writeln(FILEBOOK,"");

inc(i);

end;

CLOSEFILE(FILEBOOK);

end;

function Nam():string;

vari,k:integer;

s:string;

begin s:="";

for i:=1 to 3 random(10) do begin k:=round(random(33));

s:=s c [k 1];

end;

Nam:=s;

end;

function Tel():string;

var i:integer;

s:string;

begin i:=1;

s:="";

while i<10 do begin s:=s INTTOSTR(random(10));

inc(i);

end;

Tel:=s "|1";

end;

function Teld():string;

var i:integer;

s:string;

begin s:="";

i:=1;

while i<10 do begin s:=s INTTOSTR(random(10));

inc(i);

end;

Teld:=s "|0";

end;

end.

Размещено на
Заказать написание новой работы



Дисциплины научных работ



Хотите, перезвоним вам?