Консольное приложение, глюки с кодировкой

← →
Ку Ку (2006-04-16 04:49) [0]

Захотел сделать консольное приложение. Вот код

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
rec:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write("Ведите номер ");
read(rec);
end.

При запуске приложения вместо "Ведите номер" выводиться абакодабра, как это исправить ?

← →
TUser © (2006-04-16 05:44) [1]

CharToOem

← →
BiN © (2006-04-16 21:25) [2]

procedure WriteWStr(const S: String);
var
lpCharsWritten: DWORD;
begin
WriteConsoleW(GetStdHandle(STD_OUTPUT_HANDLE), Pwidechar(WideString(S)), Length(S), lpCharsWritten, nil);
end;

> как это исправить
Можно перед компиляцией перекодировать текст программы в DOS

Консольное приложение, глюки с кодировкой Найти похожие ветки