Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

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

Автор: ve7er 17.05.2007 19:19

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

Посмотрите :

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.

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

Автор: hardcase 17.05.2007 20:49

BOOL CharToOem(
LPCTSTR lpszSrc,
LPSTR lpszDst
);

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

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

Код

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