freepascal.ru

AnnaNsk писал(а):Win8

Код: Выделить всё

writeln( UTF8ToSys( 'Привет!' ) ); // попробуйте, и будет Вам счастье, скорее всего.


Код: Выделить всё

writeln(utf8toconsole('Приветик'));

А в чём Вы исходный код программы пишете?

writeln( UTF8ToSys( 'Привет!' ) ); // попробуйте, и будет Вам счастье, скорее всего. writeln(utf8toconsole('Приветик'));

Код: Выделить всё

uses Windows;
begin
   SetConsoleOutputCP(1251);
   writeln('Привет!');
   writeln('Ответ: ',2+2);
end.


gvido писал(а):Так как кодировка консоли по умолчанию 866.

AnnaNsk писал(а):Методе скалогрыза привел вот к чему:

Код: Выделить всё

uses Windows;
begin
   SetConsoleOutputCP(1251);
   writeln('Привет!');
   writeln('Ответ: ',2+2);
   SetConsoleOutputCP(866);
end.


скалогрыз писал(а):какая жесть!

Код: Выделить всё

program my_program;

uses Windows;
     var s:string;
         i,c:integer;
         cp:integer;
begin
   cp:=GetConsoleOutputCp;
   writeln('Current code page=',cp);
   SetConsoleOutputCP(1251);
   writeln('Current code page=',GetConsoleOutputCp);
   s:='Привет!';
   writeln(s);
   for i:=1 to length(s) do
     write(ord(s[i]):8);
   writeln;
   writeln('Ответ: ',2+2);
   SetConsoleOutputCP(cp);
   writeln('Current code page=',GetConsoleOutputCp);
end.



Код: Выделить всё

C:\>my_program.exe
Current code page=866
Current code page=1251
Привет!
     207     240     232     226     229     242      33
Ответ: 4
Current code page=866