Скролинг, вывод файла с большим кол-вом записей Опции

[Renbo]

Имеем Типизированный фаил. Работаем последовательным доступом.

Имеется вот такая процедурка вывода ввиде таблички.

procedure vivod2;
var
  i:integer;
Begin
  clrscr;
  i:=0;
  assign(spravochnik2,'spravka2');
  reset(spravochnik2);
  writeln('----------------------------------------------------------------------------');
  writeln('№':3,'   Табельный            ФИО                    Семейное        Количество');
  writeln('       Номер            сотрудника                положение         детей    ');
  writeln('----------------------------------------------------------------------------');
  with Zap2 do
  while not eof(spravochnik2) do
    begin
      inc(i);
      write(i:3);
      read(spravochnik2,Zap2);writeln(TabNom:9,FIOsotr:30,SP:15,Deti:14);
    end;
  close(spravochnik2);
End;

Проблема: Если записей будет более 20 что ли...то в итоге паскаль выводит на экран только последние несколько записей, при этом не видна шапка. Как я понял лучше шапку выделить в отдельную процедуру. А вот с самим выводом как быть? хочется, чтобы он прокручивался по нажатию на стрелочки вниз-вверх

[volvo]

Может быть... Надо будет доработать его только ... Я подумаю.

[Renbo]

Я смог всё-таки сделать без seek и filepose ))

procedure vivodShapki;

Begin
  clrscr;
  writeln('----------------------------------------------------------------------------');
  writeln('№':3,'   Табельный            ФИО                    Семейное        Количество');
  writeln('       Номер            сотрудника                положение         детей    ');
  writeln('----------------------------------------------------------------------------');
end;


procedure vivodilka;
var
  k,curr_pos,n,p:integer;
  refresh:boolean;
Begin
  assign(spravochnik2,'spravka2');
  reset(spravochnik2);
  curr_pos:= 0;
  refresh:=true;
  while not eof(spravochnik2) do
    begin
      read(spravochnik2,Zap2);
      inc(n);
    end;
  repeat
    if refresh then
      begin
        reset(spravochnik2);
        k:=1;
        vivodShapki;
        p:=0;
        repeat
          read (spravochnik2,Zap2);
          If k in [curr_pos+1..curr_pos+10] then
            with Zap2 do
              begin
                inc(p);
                write(curr_pos+p:3);
                writeln(TabNom:9,FIOsotr:30,SP:15,Deti:14);
              end;
          inc(k);
        until (eof(spravochnik2));
        refresh:=false;
      end;
    case ord(readkey) of
      80:if curr_pos+10 < n then
            begin
              inc(curr_pos,10);
              refresh:=true;
            end;
      72:if curr_pos-10>=0 then
            begin
              dec(curr_pos, 10);
              refresh:=true;
            end;
      13:break;
    end;
  until false;
  close(spravochnik2);
End;

Пашет, но есть 1 нюанс: когда он выведит последнию страницу с записями, то дальше можно будет листать, но будут пустые листы...вот как бы это заблочить?

Сообщение отредактировано: Renbo - 5.04.2007 22:23