проблема с кодировкой

[tred]

Почему вместо русского шрифта в рабочей программе непонятные символы показываются ?

program Console;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function Power(X, Y: Double): Double;
begin
  Result := Exp(Y * Ln(X));
end;

begin
  Writeln('2 в степени 3 = ', Power(2, 3));
  Writeln('Press Enter to exit...');
  Readln;
end.

[p51x]

CharToOem и иже с ней

[tred]

Благодарю за помощь но можно эту функцию в код вставить. Я её не знаю.

[p51x]

http://programmersforum.ru/search.php

[Serge_Bliznykov]

tred,
в uses допишите модуль Windows
добавьте функцию StrAnsiToOem
и везде, где есть вывод русских букв используёте её:

...
uses
SysUtils, Windows;

function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

function Power(X, Y: Double): Double;
begin
Result := Exp(Y * Ln(X));
end;

begin
Writeln(StrAnsiToOem('2 в степени 3 = '), Power(2, 3));
...

[tred]

Сообщение от Serge_Bliznykov

tred,
в uses допишите модуль Windows
добавьте функцию StrAnsiToOem
и везде, где есть вывод русских букв используёте её:

...
uses
SysUtils, Windows;

function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

function Power(X, Y: Double): Double;
begin
Result := Exp(Y * Ln(X));
end;

begin
Writeln(StrAnsiToOem('2 в степени 3 = '), Power(2, 3));
...

Cпасибо , это работает.

[Grag]

Вот еще вариант функции перекодировки (проверено, работает)

function PR(Const a : string) : string;
begin
  SetLength(result, length(a));
  CharToOem(PChar(a), Pchar(result));
end;

пример вызова функции

writeln(PR('Введите координату (x,y) вершины '),i);

[Serge_Bliznykov]

Сообщение от Grag

function PR(Const a : string) : string;
begin
  SetLength(result, length(a));
  CharToOem(PChar(a), Pchar(result));
end;

Grag, этот вариант, кстати, даже предпочтительней.

Т.к. Функция AnsiToOemBuff устарела. (оставлена в WinApi для совместимости)

цитирую:

The AnsiToOemBuff function is obsolete.

For compatibility with 16-bit versions of Windows, this function is implemented as a macro that calls the CharToOemBuff function, which should be used for new Win32-based applications.