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

[grominfo]

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

А мы то как вас не понимаем. Спросили вас, какую ошибку пишет компилятор, вы нам зачем-то говорите про выделение строки красным цветом.

[VETER15]

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

А мы то как вас не понимаем. Спросили вас, какую ошибку пишет компилятор, вы нам зачем-то говорите про выделение строки красным цветом.

если он ничего не пишет, а просто не дает запуск и при этом выделяет строку ошибки которую я указывал выше

[BDA]

При компиляции строка выделяется красным, а снизу (у меня снизу, где именно в дельфи 7, не знаю) в окошке Messages пишется список ошибок. Вот этот-то список нас и интересует. Кстати, чем Вы компилируете? (Вопрос снят - Delphi 7)

[VETER15]

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

При компиляции строка выделяется красным, а снизу (у меня снизу, где именно в дельфи 7, не знаю) в окошке Messages пишется список ошибок. Вот этот-то список нас и интересует. Кстати, чем Вы компилируете? (Вопрос снят - Delphi 7)

думаю я вас правильно понял

[Аватар]

Судя по ошибке StrAnsiToOem определен не один раз. Код такой должен быть. Картинка кстати та еще - пришлось в паинте масштаб увеличивать, что бы прочитать текст

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('Теперь в консоли всё будет по русски!'));
  Readln
end.

PS
Если опять не получится, значит либо руки кривые, либо дельфи кривое