Как заменить абракадабру на русский текст

[VETER15]

выдает ошибку в данной строчке
function StrAnsiToOem(const S: AnsiString): AnsiString;

Стоит Windows 7 home

[Serge_Bliznykov]

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

Правой кнопкой мыши по заголовку окна - Свойства - Шрифт - Lucida Console.

Упс. А вот это действительно помогло!!
спасибо. //доавлю ещё один способ в копилочку

[Serge_Bliznykov]

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

выдает ошибку в данной строчке
function StrAnsiToOem(const S: AnsiString): AnsiString;

Стоит Windows 7 home

какую именно ошибку выдаёт комплитор в этой строке?
модуль Windows в разделе uses вы, конечно, не забыли прописать?!

[VETER15]

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

Упс. А вот это действительно помогло!!
спасибо. //доавлю ещё один способ в копилочку

а такого даже ненашел

[grominfo]

Function WinToDos(Const S: String) : String;
begin
 SetLength(Result,Length(S));
 if  Length(S) <> 0  then
   CharToOem(pChar(S),pChar(Result));
end;

writeln(WinToDos(' Привет! Я русская консольная программа, автор которой не умеет пользоваться гуглом.'));

[VETER15]

нет не забыл, все на месте

[Serge_Bliznykov]

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

нет не забыл, все на месте

и какую же ошибку выдаёт компилятор?!

[VETER15]

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

и какую же ошибку выдаёт компилятор?!

выделяет строку красным и не дает запустится

[grominfo]

выделяет строку красным и не дает запустится

Так прям и пишет?

[VETER15]

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

Так прям и пишет?

переформулируйте пожалуйста свои вопросы, я вам не до конца понимаю