[РЕШЕНО] Что с кодировкой?

[camac]

Удалась возможность разжиться ПК с Виндовс.
И столкнулся с непонятным. Кодировка СР1251. В консоли выбран шрифт Lucida Console, т. е. той же кодировки. Текст отображается правильно. Но тот текст, который я ввожу - крякозябрами. Т. е. в DOS'овской кодировке? СР866?

Итак, решение:
1) подключаем модуль windows

     uses windows;

2) в начале главной программы пишем

     SetConsoleCP(1251);
     SetConsoleOutputCP(1251);

[Вадим Мошев]

Попробуйте подключить модуль windows, в основной программе в начале написать:

SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

[camac]

Самое смешное - в Линуксе у консоли в настройках указал кодировку СР1251. И все нормально. Никаких иероглифов.
Эти процедурки в модуле Windows?

[Alex11223]

Так вводите и выводите-то как?

[Вадим Мошев]

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

Эти процедурки в модуле Windows?

Да. Подключите модуль.

[camac]

Ввожу текст?
Это самописное творение. Ваяю потихоньку в качестве самообразования.
Запускаю программулину. Выбираю пункт "ввести данные"... Давайте лучше я свое творение тут выложу - пощупаете. Заодно и подскажете - что/как не так. Совет/критика профи всегда ценна.

[Serge_Bliznykov]

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

Ввожу текст?

вводите. с клавиатуры.

сделал, как советовал Вадим Мошев ( https://programmersforum.ru/showpost...18&postcount=2 )

uses crt,dos,windows;
....

begin

  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

repeat
  clrscr;
{  writeln('#################################################################');
  writeln('#                                                               #');
  writeln('#                        МЕНЮ ПРОГРАМЫ                          #');
  writeln('#                                                               #');
  writeln('#################################################################');

bz.png

а создание базы у Вас кривой алгоритм. Если файла на диске нет, то создать его невозможно. и выйти невозможно из процедуры repeat until ...

[camac]

Про создание точно. Что-то не то сделал. Спасибо.
Про подключение модуля - мне до ПК с Виндовс добраться надо. А это не всегда возможно. Попробую сегодня вечером.

[Alex11223]

Зачем вам целый пк для виндовс? Давно ж существуют виртуалки.

[camac]

Подправил. Заработало. С проверкой не то сделал. Спасибо.