Из 1251(ANSI) в 866(OEM) - Форум «Всё о Паскале»

Сайт «Всё о Паскале»

Помощь Пользователи Поиск

Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi

ВНИМАНИЕ!

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

Из 1251(ANSI) в 866(OEM), Консольное приложение

Опции

ve7er

17.05.2007 15:19

Сообщение #1

Разведчик

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

Репутация:

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

Посмотрите :

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 - 18.05.2007 10:02