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

[ve7er]

М

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

Посмотрите :

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

[hardcase]

BOOL CharToOem(
LPCTSTR lpszSrc,
LPSTR lpszDst
);

lpszDst - это указатель на буфер. Ты не выделяешь память под буфер.

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

Код

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

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