ASCI кодировка (Delphi)

[VadEr]

Всех приветствую!
Посоветуйте пожалуста, как-нибудь можно писать в редакторе кода Delphi в ASCI кодировке (для нормального отображения русского шрифта в консоле)?

[profi]

Знаю метод (пользовался один раз) использовал в компиляторе Turbo Pascal. Открываеш с помощью Far *.pas файл и жмеш кнопку F8 переходиш таким способом в кодировку DOS, потом переключаеш раскладку клавиатуры на русскую и все.

[Serge_Bliznykov]

ну зачем же так жестко... а как текст в IDE Дельфи читать?!

вот более цивилизованное решение:

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils, Windows;

function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

begin
  WriteLn(StrAnsiToOem('Это текст будет в консоли по русски!'));
end.