Текущий архив: 2006.08.06;
Скачать: CL | DM;
Вниз
Консольное приложение, глюки с кодировкой Найти похожие ветки
← →
Ку Ку (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;
← →
palva © (2006-04-16 22:05) [3]> как это исправить
Можно перед компиляцией перекодировать текст программы в DOS
Страницы: 1 вся ветка
Текущий архив: 2006.08.06;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.057 c
