нформацію'); window (3 , 3, Length (STR1) -1,15); Repeat windows_enter (15,4,14,50,1, man, flag, l); not flag then begin seek (f, filesize (f)); write (f , Man); last2 + filesize (f)-lastfile-1 <= 19 thenif filesize (f) = 1 then textattr: = $ 1f else end;; Until not l; close (f);; Fill_Ramka2 (n: integer); i, k: integer; Man: Record_Base; (f); textattr: = $ 0b; window (33,5,79,23) ; clrscr; i: = 1; (i <20) and (not eof (f)) do begin read (f, man); if i = n then begin: = $ 1f; gotoxy (1, n); clreol; then textattr: = $ 0b; inc (i); end; window (1,1,80,25); close (f);; ramka2_move (var x, l: integer); c: char; k: integer; man : Record_Base; flag, h: boolean;: file of Record_Base; (2,18, Length (STR1) -1,23); textattr: = $ 0f;; gotoxy (1,2); write (# 24, 'або ', # 25,' - рухати курсор ');
gotoxy (1,3); write ('"del" - видалити запис'); (1,4); write ('"Enter"-редагувати запис');
gotoxy (1,5); if archiv then write ('"Ins" - перенести в базу') else ('"Ins" - перенести в архів'); if not ramka then Show_Ramka; (f); seek (f, l); if filesize (f)> 0 thenread (f, man); seek (f, l);; repeat textattr: = $ 0f; if filesize (f)> 0 thenwindow (3,3 , Length (STR1) -1,16); Man do end else ramka1 (1); (33,5,79,23); c: = readkey; if ord (c) = 0 then c: = readkey; ((ord (c) = 72) and (filepos (f) > 0)) or ((ord (c) = 80) and (filepos (f) +1 0) then begin read (f, man); ( f, filepos (f) -1); textattr: = $ 0b; (1, x); clreol; gotoxy (1, x); write (man.Record_Number); (12, x); write (man.Record_Famile) ; gotoxy (32, x); write (man.Record_Special);; case ord (c) of
: if (filepos (f)> 0) and (filesize (f) <> 0) thenif x = 1 then begin gotoxy (1, x); insline; end else dec (x); (f , filepos (f) -1); read (f, man); seek (f, filepos (f) -1); end;
: if (filepos (f) +1 0) then begin if x = 19 thengotoxy (1,1); delline; end else inc (x ); seek (f, filepos (f) +1); read (f, man); (f, filepos (f) -1); end; 83: if filesize (f) <> 0 then if windows ( 23,9,5,30,1, 'Ви точно хочете видалити?') thentextattr: = $ 0b;: = filepos (f); delete (k); gotoxy (1, x); delline; if (k +19 -x) <= filesize (f) -1 thenseek (f, k +19- x); read (f, man); seek (f, k); gotoxy (1,19); write (man.Record_Number) ; (12,19); write (man.Record_Famile); gotoxy (32,19); write (man.Record_Special);; if (k> filesize (f) -1) and (filesize (f) <> 0) thenseek (f, k-1); dec (x); end else seek (f, k); if filesize (f) <> 0 thenread (f, man); seek (f, filepos (f) -1); end;: = filepos (f); end;
: if filesize (f) <> 0 then beginarchiv then h: = windows (23,9,5,30,1, 'Перенести в базу?')
else h: = windows (23,9,5,30,1, 'Перенести в архів?');
if h then begin {$ I-} assign (f1, ARCHIVNAME); reset (f1); if IOResult <> 0 then rewrite (f1); IOResult <> 0 then halt (1); seek (f1 , filesize (f1)); (f1, man); clos...
