Просмотр типизированного файла по частям

@nurmizmat · Регистрация: 10.04.2010

Author24 — интернет-сервис помощи студентам

реализовал просмотр файла. если записей больше 20, то очищаем экран и выводит еще 20 записей. минус - по базе двигаемся только вперед. возможно выполнить так, чтобы листание осуществлялось в обе стороны?

Добавлено через 1 час 20 минут
кто-нибудь подскажет можно это реализовать или нет?

@Inadequate · 29.04.2010, 01:09

Ну так как файл у тебя типизированный, то почему бы и нет ? Используй Seek().

@nurmizmat · 29.04.2010, 01:17 **[ТС]**

а как? если просмотрели 20 записей и смотрим следующие 20, чтобы вернуться назад seek на 0, а если смотрим 9 страницу? не подскажите как лучше делать? буду сам пока разбираться.

@Inadequate · 29.04.2010, 01:23

Ну чтобы вернуться назад нужно не seek на 0, а seek на 20 * N - 1, где N - это номер страницы.

@nurmizmat · 29.04.2010, 01:39 **[ТС]**

Сообщение от Inadequate

Ну чтобы вернуться назад нужно не seek на 0, а seek на 20 * N - 1, где N - это номер страницы.

может 20*N-20? первая страница N=0, вторая страница N=1...

@Inadequate · 29.04.2010, 01:49

nurmizmat, ну я тебе показал набросок, чтобы ты уловил суть, а дальше уже фантазия. При

таком

20*N-20

подходе недопустимо, чтобы N = 0.

@nurmizmat · 29.04.2010, 11:40 **[ТС]**

вот примерно так. должно работать.

Pascal

procedure view_base; {просмотр базы данных}
 
begin
  clrscr;
  c:=0; {кол-во записей}
  n:=0; {кол-во страниц}
  assign (f,namebase); 
  reset (f); 
  while not eof (f) do 
    begin
      read (f,x); 
      ...
      вывод записей
      ...
      c:=c+1;
        if c>20 then
      begin
               n:=n+1;
               ...
               выбор смотрим дальше или возврат на предыдущую страницу
               ...
               если возврат, то
        clrscr;
               c:=0;
               seek (f, 20*n-20);
               n:=n-1;
      end;
    end;
  .......

Добавлено через 3 минуты
так n=0 изначально. 20*n-20 будет работать, если как минимум вторая страница откроется (n=1)

Добавлено через 3 минуты
вообще-то работать не будет..(

Добавлено через 8 часов 3 минуты
потихоньку делаю. подскажите коды клавиш PgUp и PgDn для ноутбука и и полноценной клавиатуры одинаковые? на ноутбуке - это 33 и 34.

Добавлено через 1 час 31 минуту
Inadequate, все сделал. может и коряво написал, но все работает. спасибо за подсказку.

@nurmizmat 1 / 1 / 2 Регистрация: 10.04.2010 Сообщений: 36
		1
	Просмотр типизированного файла по частям 29.04.2010, 01:05. Показов 1406. Ответов 6 Метки нет (Все метки) реализовал просмотр файла. если записей больше 20, то очищаем экран и выводит еще 20 записей. минус - по базе двигаемся только вперед. возможно выполнить так, чтобы листание осуществлялось в обе стороны? Добавлено через 1 час 20 минут кто-нибудь подскажет можно это реализовать или нет? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	29.04.2010, 01:09	2
	Ну так как файл у тебя типизированный, то почему бы и нет ? Используй Seek(). 0

@nurmizmat 1 / 1 / 2 Регистрация: 10.04.2010 Сообщений: 36
	29.04.2010, 01:17 [ТС]	3
	а как? если просмотрели 20 записей и смотрим следующие 20, чтобы вернуться назад seek на 0, а если смотрим 9 страницу? не подскажите как лучше делать? буду сам пока разбираться. 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	29.04.2010, 01:23	4
	Ну чтобы вернуться назад нужно не seek на 0, а seek на 20 * N - 1, где N - это номер страницы. 0

@nurmizmat 1 / 1 / 2 Регистрация: 10.04.2010 Сообщений: 36
	29.04.2010, 01:39 [ТС]	5
	Сообщение от Inadequate Ну чтобы вернуться назад нужно не seek на 0, а seek на 20 * N - 1, где N - это номер страницы. может 20*N-20? первая страница N=0, вторая страница N=1... 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	29.04.2010, 01:49	6
	nurmizmat, ну я тебе показал набросок, чтобы ты уловил суть, а дальше уже фантазия. При таком 20*N-20 подходе недопустимо, чтобы N = 0. 1

	29.04.2010, 11:40