Русификация консольных приложений на DELPHI

[I.C.E.]

Как сделать так что бы в консольных прогах отображался правильно русский язык?

[Torpedo]

Точно не скажу, но для перевода символов из кодировки консоли и обратно служат функции CharToOem и OemToChar, модуль winuser

[I.C.E.]

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

Точно не скажу

можно кусок исходника? так не очень понятно(

[Part!zan]

I.C.E., меняй локаль консоли, а метод Torpedo извращенский. Подробности в мсдн.

[I.C.E.]

Part!zan, как ее поменять то?

[Part!zan]

I.C.E., SetConsoleOutputCP

[I.C.E.]

Вот что он мне пишет:

[p51x]

А посмотреть, что она в модуле Windows подключить его?

[I.C.E.]

Вот что получается...
Не работает...
Выложите пожалуйста подобный исходник где раотает все...

[Pengvin]

Ну писец. Я не знаю как сейчас это делается, а в свое время по большинству вопросов я консультировался с оффлайн версией http://delphiworld.narod.ru/ а не бежал на форум постить свой вопрос. Там есть статья, которая так и называется Русификация консольных приложений в Delphi в разделе ОС и Железо. И я думаю на гугле еще никого не банили. Выкладывать исходиник не буду из соображений той же самой лени, которая свойственна всем людям.

[Part!zan]

Pengvin, да тут на 90% тем с вопросами можно найти ответ в гугле... Но людям кажется проще неизветно сколько ждать ответ на форуме, чем полчаса погуглить.

[Pengvin]

Part!zan, ды это элементарная лень и возможно немного жадности. Траффик с форума для многих сетей бесплатный. Написал свой вопрос и идешь своими делами заниматься. А кто-то в это время допустим потратит минут 10-20 своего времени и пару десятков мб трафика, найдет и ответит. С одной стороны долго ждать, с другой простота реализации и минимальные затраты личной энергии и времени.

[Nebel]

Проблемо в том что в делфийском компиляторе используется Windows-1251, а запущенное приложение использует кодовую страницу Dos.
Мона решить проблемку так:
делаем функцию

function Rus (s: string): string;
var
i: integer;
begin
for i:=1 to length(s) do
case s[i] of
'А'..'п' : s[i] := Chr(Ord(s[i]) - 64);
'р'..'я' : s[i] := Chr(Ord(s[i]) - 16);
end;
Rus := s;
end;

Затем используем, например так:
...
writeln(Rus('привед'));
...

[I.C.E.]

Nebel, ну эт все кривые способы... Знаю что есть на прямую как то... Только как хз вобще((

Pengvin, можешь выложить модуль который у тебя на скрине? "enconsole.pas"

[Part!zan]

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

пару десятков мб

Эт ты загнул... Пару мб еще можно наскрести, да и то, в особо запущенных случаях.

[Constantine]

SetConsoleOutputCP и кажется SetConsoleCP
Правда, помню что на моем компе все равно не работало. Подозреваю, что виноват был PuntoSwitcher.
А насчет "кривых" методов ты не прав. На безрыбье и рак рыба, так хотя бы работает.
А вообще, чем тебя английский-то не устраивает?))))