Вывод текста в приложении ($APPTYPE CONSOLE) русскими буквами...

← →
KPV-10k © (2003-01-07 21:21) [0]

Уважаемые МАСТЕРА! Ответьте пожалуйста на вопрос: Как сделать так, чтобы в моём приложении ($APPTYPE CONSOLE) можно было корректно выводить русские буквы, а не что-то типа ЋЎ®ўЁвмЋЎ®ўЁ.. (Я пользуюсь WriteLn("русский текст");)

← →
Anatoly Podgoretsky © (2003-01-07 21:27) [1]

Есди у тебя консоль поддерживает русские буквы, то CharToOem

← →
KPV-10k © (2003-01-07 21:36) [2]

Спасибо...

← →
TTCustomDelphiMaster © (2003-01-07 21:41) [3]

function StrToOem(const AnsiStr: string): string;
begin
SetLength(Result, Length(AnsiStr));
if Length(Result) > 0 then
CharToOem(PChar(AnsiStr), PChar(Result));
end;

begin
writeln(StrToOem("Абракатабра"));
readln
end.

Усложнять просто :-) Проще надо, братцы!

writeln("kpyt0 3|-|a|-0 WinAPI!");

Вывод текста в приложении ($APPTYPE CONSOLE) русскими буквами... Найти похожие ветки