|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.05.2013, 17:59 | #1 |
Пользователь
Регистрация: 14.11.2012
Сообщений: 31
|
Скроллинг(Прокрутка) в Pascal ABC.
Здравствуйте, нужно сделать скроллинг в Pascal ABC, есть обычная БД, реализована через список, модули - crt и graphABC, суть в том, что при выводе данных на экран видно только последние 3 записи и нужно сделать хоть какой-то скроллинг, допустим по нажатию стрелки вниз будет показывать следующие три записи, просмотр предыдущих трех не обязателен. Либо любые другие варианты хоть какого-то бедного скроллинга, лишь бы была возможность просмотреть все записи при выводе на экран.
P.S. Если работа "не на 15 минут", то само собой возможна материальная благодарность. Вот код, просто как пример к сложившейся проблеме, выводит только последние 3 записи: |
10.05.2014, 12:56 | #2 |
Новичок
Джуниор
Регистрация: 10.05.2014
Сообщений: 2
|
// Ïðîöåäóðà ïåðåãëÿäó êîäó
Procedure ViewKod; Var f:text; st:string; Begin //ScrollingOff; assign(f,'mo.pas'); reset(f); n:=0; while not eof(f) do begin ch:=readkey; //i:=ord(ch); if ch=#0 then ch:=readkey; if ch=#80 then for i:=1 to 20 do begin readln(f,st); n:=n+1; writeln(st); end; if ch=#72 then delline; if (ch<>#80) and (ch<>#72) then begin close(f); exit; end; end; close(f); End; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
pascal abc, pascal turbo. выборка данных из одного .txt в другой | ТипичныйСтудент | Помощь студентам | 6 | 27.04.2013 15:29 |
Программы в Pascal, среда pascal ABC. Лабораторные работы | Одинокая Волчица | Фриланс | 8 | 10.02.2012 20:09 |
Неудобство ABC Pascal и глюк Borland Pascal | proser93 | Помощь студентам | 0 | 19.11.2011 19:01 |
Turbo Pascal or Pascal ABC | Ikram | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 27.04.2010 13:44 |