| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Консольное приложение, глюки с кодировкой [D7, WinXP]
Ку Ку © (2006-04-16 04:49:00)Захотел сделать консольное приложение. Вот код
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
rec:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write('Ведите номер ');
read(rec);
end.
При запуске приложения вместо "Ведите номер" выводиться абакодабра, как это исправить ?
palva (2006-04-16 22:05:00) [1]> как это исправить
Можно перед компиляцией перекодировать текст программы в DOS
BiN (2006-04-16 21:25:00) [2]procedure WriteWStr(const S: String);
var
lpCharsWritten: DWORD;
begin
WriteConsoleW(GetStdHandle(STD_OUTPUT_HANDLE), Pwidechar(WideString(S)), Length(S), lpCharsWritten, nil);
end;
TUser (2006-04-16 05:44:00) [3]CharToOem
| |
