Решил сделать консольное приложение, но вот проблема - русские буквы при выполнении превращаются в абракадабру. Тут понятно в чем дело - кодировка Виндовс превращается в какую-то другую (ДОС видимо). Но как заставить превращаться правильно или вообще не превращаться. Есть способ перекодировать исходный текст в Лексиконе или в другом текстовом редакторе, но это ведь не выход.
Это относится ик TMT Паскалю, и к Borland Pascal for windows. Мне бы хоть один из них русскому языку научить.

Гм, спасибо за хорошую идею. У меня тоже была подобная проблема. Теперь буду перекодировать текст в редакторе, а в исходнике просто комментировать что написано... А кто знает, а может быть в консольных прогах вовсе и нет поддержки национальных языков? Я имею ввиду нет таких API, которые могли бы заниматься этим. Наверняка Cmd создана подобноро рода способом...

По моему нет в консоле никакой поддержки национальных языков (если я не прав - буду рад). Кодировка там - DOS 866, в виндовом редакторе у тебя получается кодировка Win 1251
Посему вижу 2 выхода:
1. Писать прогу в редакторе, поддерживающем кодировку DOS
2. Вывод осуществлять примерно так:

Код

Writeln (Win2Dos ('Вывод на экран'));

Этот способ имеет ряд недостатков, т.к. необоснованно растет размер и сложность программы. Поэтому способ 1 имеет преимущество. Или можно перекодировать исходник перед компиляцией.
А иметь в программе:

Код

//Строка текста Writeln ('‘ва®Є  ⥪бв ');

наверное некрасиво?

D7+Win2000 - consol application никаких проблем.
Или я чего то не допонял?

Так как текст программы набирается в Windows,
а работает программа в Dos, то возникают проблемы
при выводе русских букв, вместо которых на экране
появляется абра-кадабра. Это объясняется тем, что
русские буквы в Windows и в DOS кодируются разными числами.
Поэтому в программе, работающей в DOS, нужно изменить кодировку
русских букв.

В Windows русские буквы кодируются числами от 192 до 255,
в DOS - от 128 до 175 (А..Яа..п) и от 224 239 (р..я).

Код

//Функция Rus преобразует Windows строку в DOS строку} function Rus(mes: string):string; var   i: integer; begin   for i:=1 to length(mes) do        case mes[i] of           'А'..'п' : mes[i] := Chr(Ord(mes[i]) - 64);           'р'..'я' : mes[i] := Chr(Ord(mes[i]) - 16);        end;   rus := mes; end; // проверка работоспособности функции Rus begin     writeln( Rus('У лукоморья дуб зеленый') );     writeln( Rus('Златая цепь на дубе том.') );     writeln;     writeln( Rus('Для завершения нажмите <Enter>'));     readln; end.

Это сообщение отредактировал(а) Sergey89 - 29.10.2004, 13:45

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

А вообще просто выводить не врайтлном, а написать свою функцию, которая будет автоматом переворачивать строчки.

Написать свою функцию - лучший вариант на мой взгляд. Да в принципе и писать уже не надо, Sergey89 предложил самое то. И спасибо ему за это.
Хочу заметить, проблема эта глобальная. Некоторые мои сокурсники с горя вообще на английский перешли... не очень правильно на мой взгляд.

На основе функции создай модуль и раздай его своим однокурсникам

Цитата

Но как заставить превращаться правильно или вообще не превращаться. Есть способ перекодировать исходный текст в Лексиконе или в другом текстовом редакторе, но это ведь не выход

почему не выход? я, например в far манагере встроенным редактором в дос кодировке свой проджект изменял...

uses Windows;

Код

var PStr: PChar; CharToOem('У лукоморья дуб зелёный', PStr);

не... так муторно, да еще и лишнюю переменную надо использовать,

Маленькая поправка: программа работает не в dos, а в эмуляции(или как там ещё) dos'а. Уж ваша то программа точно в dos работать не будет.

Код

function Ansi2OEM(const S : string) : string; // Конвертирует строку из кодировки Windows в DOS кодировку begin  SetLength(Result,Length(S));  if  Length(S) <> 0  then    CharToOem(pChar(S),pChar(Result)); end; // ----------------------------------------------------------------- function OEM2Ansi(const S : string) : string; // Конвертирует строку из кодировки DOS в Windows кодировку begin  SetLength(Result,Length(S));  if  Length(S) <> 0  then    OemToChar(pChar(S),pChar(Result)); end;