Курсовая работа: База данных Расписание поездов

readln(f,phone[nRec]);

readln(f,rayon[nRec]);

end;

close(f);{Закрытие файла}

clrscr;{Очистка экрана}

end;

Листинг 6.2 . Процедура просмотра информации

procedureShowDB;{Процедура вывода на экран}

var

i:integer;

Begin

writeln ('Nazvanie_____________|Adres___________________________|Phone____|Rayon_______________');

for i:=1 to nRec do {Вывод всех записей-цикл выполняется столько

раз сколько было найдено записей в базе данных}

begin

write (name[i]:20,' | ');

write (adres[i]:30,' | ');

write (phone[i]:7,' | ');

writeln (rayon[i]:15);

end;

readln;

end;

Листинг 6.3. Процедура поиска в БД

procedureSearch;{Процедура поиска}

var

Words:string;{Переменная для поиска слова}

i:INTEGER;

found:boolean;

begin