Кириллица=>транслит, Работа с Деком Опции

[Free]

скачал где-то из ФАКа прогу на тему дека, только как я понимаю там весь интерфейс на кириллице, а у меня отображаются каракули Заниматься установкой кириллицы в паскаль неочень хочется, поэтому у кого есть русский на паскале немогли бы вы изменить данную прогу, переписав кириллицу на транслит. Там писать немного.

Буду благодарен

[volvo]

Вот файл с транслитом...  __deque.pas ( 2.85 килобайт ) Кол-во скачиваний: 631


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

[Free]

volvo, спасибо.

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

Так имел виду, что отсюда скачал, только не помню из какого именноа FAQ

[volvo]

Это не отсюда... В FAQ-е моя программа по Декам, а я ТАК не пишу... :no: Я знаю, откуда та программа...

[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]

когда пытаешься извлечь элемент из дека, то он не отображается на экране. В чём моя ошибка?

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

  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;