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

 

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум



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