Курсовая работа: Проектирование базы данных "Справочник покупателя" в среде Turbo Pascal

readln(z[i].v);

По завершению ввода каждой записи, информация заносится в типизированный файл в переменную типа массив:

Write(g,z[i]);

Процедура Windo вырисовывает рамку для главного и подменю.

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

TextBackground(Blue);

TextColor(Yellow);

После этого при помощи циклов и ASCII кодов вырисовывается сама рамка, в которой будет находиться список пунктов меню:

Window(14,5,66,20);

ClrScr;

Write(#218);

for k:= 14+1 to 66-1 do Write(#196);

Write(#191);

for k:= 5+1 to 20-1 do

begin

GotoXY(1,k-5+1);

Write(#179);

GotoXY(66-14+1,WhereY);

Write(#179);

end;

Write(#192);

Window(14,5,66,20+1);

GotoXY(2,20-5+1);

for k:= 14+1 to 66-1 do Write(#196);

Write(#217);

Window(14+1,5+1,66-1,20-1);

Процедура ZAPOLNENIE производит заполнение введенной информации в типизированный файл на диске

Rewrite(g);

clrscr;