Скачать: CL | DM;

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

← →
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("Хелоу");
......

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.04 c