Procedure AddRecord;

Var i, j: Word;

begin

repeat

clrscr;

Writeln('Введите номер добавляемой записи');

{$I-}

readln(i);

{$I+}

until (IOResult=0)and (i>0) and (i<=MaxElem+1);

MaxElem:=MaxElem+1;

if MaxElem>ColRec then

begin

OutMessageXY(2,23,Err1,Enter);

MaxElem:=MaxElem-1; {Игнорируем запись}

Readln;

exit;

end;

for j:=MaxElem downto i+1 do

mas[j]:=mas[j-1];

InputFields(mas[I]);

OutMessageXY(20,24,'Запись добавлена. ',Enter);

readln;

end;

{Процедура коррекции положения курсора при его движении вверх-вниз}

Procedure UpDown(var Vari: integer; Im: byte);

begin

if ch= #0 then ch:=readkey;

case ch of

#72: begin {стрелка вверх? }

if vari=1 then vari:=im else vari:=vari-1;

gotoxy(1,vari);

end;

#80: begin {стрелка вниз? }

if vari=im then vari:=1 else vari:=vari+1;

clrscr;

if flag then writeln('Введите номер изменяемой записи')

else writeln('Введите номер удаляемой записи');

{$I-}

Readln(i);

{$I+}

until (IOResult=0)and(i>0) and (i<=MaxElem);

TopT;

OutputRec(mas[i]);

EndT;

writeln;

OutMessageXY(20,24,Shure,Empty);

ch:=ReadKey;

if (ch='y')or(ch='Y')then

begin

if flag then InputFields(mas[i]) {Ввод всех полей заново}

else

begin

for j:=i to MaxElem-1 do

mas[j]:=mas[j+1];

MaxElem:=MaxElem-1;

end;

if not flag then OutMessageXY(20,24,'Запись удалена. ',Enter)

else OutMessageXY(20,24,'Запись изменена. ',Enter);

readln;

end

end;

{Процедура добавления записи}

Не нашли, что искали? Воспользуйтесь поиском: