Помощь - Поиск - Пользователи - Календарь
Полная версия: Кириллица=>транслит
Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы
Free
скачал где-то из ФАКа прогу на тему дека, только как я понимаю там весь интерфейс на кириллице, а у меня отображаются каракули sad.gif Заниматься установкой кириллицы в паскаль неочень хочется, поэтому у кого есть русский на паскале немогли бы вы изменить данную прогу, переписав кириллицу на транслит. Там писать немного.

Буду благодарен
volvo
Вот файл с транслитом... Нажмите для просмотра прикрепленного файла

Только зачем скачивать "откуда-то", когда у нас в FAQ-е тоже есть? smile.gif
Free
volvo, спасибо.

Цитата
Только зачем скачивать "откуда-то", когда у нас в FAQ-е тоже есть?


Так имел виду, что отсюда скачал, только не помню из какого именноа FAQ smile.gif
volvo
Это не отсюда... В FAQ-е моя программа по Декам, а я ТАК не пишу... :no: Я знаю, откуда та программа... smile.gif
Free
volvo
Вашу программу я тоже скачал, но там только модуль. А сами процедуры у меня есть для работы с деком. Камнем преткновения для меня является - это связать процедуры с интерфейсом и вообще я не знал, что должно отображаться в интерфейсе для дека, вот поэтому я и скачал эту прогу.
Попытался сделать, чтобы меню в этой программе оставалось всё время на одном месте, я сделал так :

Код
repeat
                               [b]clrscr;[/b]    
 showmenu;
 readln(selection);    
 case selection of
     1: pushbegin(root,tail,getelem);
     2: popbegin(root,tail);
     3: pushend(root,tail,getelem);
     4: popend(root,tail);
     5: clrscr;
 end;
    until selection=5;

Казалось бы всё ок, но вот когда пытаешься извлечь элемент из дека, то он не отображается на экране. В чём моя ошибка?
volvo
Цитата(Free @ 27.05.05 15:40)
когда пытаешься извлечь элемент из дека, то он не отображается на экране. В чём моя ошибка?

Ошибка в том, что элемент отображается, но сразу же затирается вновь выводимым меню. Нужно заставить программу ждать пока не будет нажата клавиша и только потом продолжать:
  case selection of
1: pushbegin(root,tail,getelem);
2: begin
popbegin(root,tail); readln; { ждем нажатия не Enter ... }
end;
3: pushend(root,tail,getelem);
4: begin
popend(root,tail); readln; { ... и здесь тоже }
end;
5: clrscr;
end;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.