В консоли кириллица выводится криво, как это лечить?

← →
crazycrazymax (2005-11-25 19:25) [0]

Вобщем пользуюсь стандартными write и writeln, а кириллица неправильно печатается, ну в редакторе-то я ввожу в виндовой кодировке, а в консоли используется Досовская, как я понял. Как это обойти?

← →
Zeqfreed © (2005-11-25 19:27) [1]

crazycrazymax (25.11.05 19:25)

> Как это обойти?

Перекодировать строки, которые выводишь. См. CharToOEM

← →
Eksell (2005-11-25 21:44) [2]

Просто в DOSе другая кодировка! (DOS - ASCII, Windows - ANSI)
Нужно просто перекодировать вот так:

function WINToDOS(RText: string): string;
var
i: integer;
ChCode: Byte;
begin
result := "";
for i := 1 to length(RText) do
begin
ChCode := byte(RText[i]);
case RText[i] of
"А".."п" : RText[i] := chr(ChCode-64);
"р".."я" : RText[i] := chr(ChCode-16);
end; {case}
result := RText;
end;
А теперь:
......
WriteLn(WINToDOS("Хелоу");
......

В консоли кириллица выводится криво, как это лечить? Найти похожие ветки