IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Из 1251(ANSI) в 866(OEM), Консольное приложение
сообщение
Сообщение #1


Разведчик
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской
Реальное имя: Диман

Репутация: -  0  +


М
Пользуйся тегами


Посмотрите :

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils,windows;
var A,B,Summ:integer;
TmpStr:pchar;
begin
TmpStr:=' ';
CharToOem('Введите значение двух целых чисел',TmpStr);
write(TmpStr);
readln(A,B);
Summ:=A+B;
writeln(Summ);
readln;

end.


почему не работает. Должен по идее отображаться текст с русскими буквами, но прога ваще не пашет...

Сообщение отредактировано: klem4 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


code warrior
****

Группа: Пользователи
Сообщений: 484
Пол: Мужской
Реальное имя: Славен

Репутация: -  8  +


BOOL CharToOem(
LPCTSTR lpszSrc,
LPSTR lpszDst
);
lpszDst - это указатель на буфер. Ты не выделяешь память под буфер.

Вот один из вариатов решения:
Код

var
  Greeting: string = 'Введите значение двух целых чисел';
begin
..
CharToOem(PChar(Greeting), PChar(Greeting));
Write(Greeting);
..
end;


Сообщение отредактировано: hardcase -


--------------------
ИзВ ин ИтЕ зА нЕ рОв НЫй П оч ЕРк
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.10.2020 21:23
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name