Помощь - Поиск - Пользователи - Календарь
Полная версия: Из 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.


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

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

var
  Greeting: string = 'Введите значение двух целых чисел';
begin
..
CharToOem(PChar(Greeting), PChar(Greeting));
Write(Greeting);
..
end;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.