Форум: "Основная";
Текущий архив: 2005.09.04;
Скачать: [xml.tar.bz2];
Вниз
русский язык в консольном приложении Найти похожие ветки
← →
Aleksandrrr © (2005-08-14 16:37) [0]Подскажите, как сделать,
чтобы в консольном приложении при
исполнении русские буквы отображались как
надо? А то выходит какая-то абра - кадабра.
← →
TUser © (2005-08-14 16:41) [1]CharToOEM()
← →
tesseract © (2005-08-14 16:48) [2]немного поподробнее - там используется CP866(DOS) и соотвественна нужна конвертация. Или как у TUSER либо вто такая
// Конвертируем в ASCII
function DosConvert(Conv:string):string;
var
Temp:String;i,t:cardinal;
begin
Temp:=Conv;
for i:=1 to length(Conv) do
begin
t:=Ord(Conv[i]);
if (t>$bf) then
if (t<$f0) then t:=t-$40;
if (t>$ef) then t:=t-$10;
Temp[i]:=chr(t);
end;
Result:=temp;
end;
// Конвертируем в ANSI
function WinConvert(Conv:string):string;
var
Temp:String;i,t:cardinal;
begin
Temp:=Conv;
for i:=1 to length(Conv) do
begin
t:=Ord(Conv[i]);
if (t>223) then t:=t+$10;
if (t>127) then
if (t<176) then t:=t+$40;
Temp[i]:=chr(t);
end;
Result:=temp;
end;
← →
Alexander Panov © (2005-08-14 16:54) [3]tesseract © (14.08.05 16:48) [2]
там используется CP866(DOS)
Немного неверно.
Используется OEM-кодировка по умолчанию, для перевода в нужную кодировку(в OEM) см. [1].
см. также SetConsoleOutputCP и SetConsoleCP
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.09.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c