не правильное отображение русского языка в delphi 2009

[motaro]

есть пару проблем в delphi 2009. Не корректно выводятся сообщения на русском языке (через writeln), а также не корректно копируется текст в буфер обмена.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Clipbrd;
  var s:string;

begin
 writeln ('Введите строку');
 readln (s);
 clipboard.astext:=s;
 end.

[_Dmitry]

Кодировки символов в DOS и Windows разные

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Clipbrd, Windows;
  var s:string;

//Перекодировка ANSI->OEM
function ConvertAnsiToOem(const S: string): string;
begin
  SetLength(Result,Length(S));
  if Length(Result) > 0 then AnsiToOem(PChar(S),PChar(Result));
end; //ConvertAnsiToOem

begin
 writeln (ConvertAnsiToOem('Введите строку'));
 readln (s);
 clipboard.astext:=s;
 end.

[Evgeniy26]

SetConsoleOutputCP(1251);

И шрифт поставте Lucida и модуль Windows подключите

[motaro]

_Dmitry, попробовал этот код выводит следующее (на строке 13):

[DCC Error] Project1.dpr(14): E2010 Incompatible types: 'Char' and 'AnsiChar'
[DCC Error] Project1.dpr(14): E2010 Incompatible types: 'Char' and 'AnsiChar'

[Evgeniy26]

Попобуйте

AnsiToOem(PAnsiChar(S),PAnsiChar(Result));

Откомпилить должно. Но результат?

[_Dmitry]

В Delphi 2006 работает, в Delphi 2009 проверить нет возможности, из-за отсутствия таковой.

[motaro]

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

Попобуйте

AnsiToOem(PAnsiChar(S),PAnsiChar(Result));

Откомпилить должно. Но результат?

а куда это вставлять?

[OCTAGRAM]

http://www.delphiplus.org/articles/d...s_console.html

Интересно, в Delphi 2009 последний вариант работает?

[motaro]

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

http://www.delphiplus.org/articles/d...s_console.html

Интересно, в Delphi 2009 последний вариант работает?

че-то не катит.

[Vampirius]

//*********************************** **************
function rus(s:string):string;
var i:integer;
begin
for i:=1 to length(s)do
case s[i]of
'А'..'п':s[i]:=chr(ord(s[i])-64);
'р'..'я':s[i]:=chr(ord(s[i])-16);
end; //case
rus:=S
end;
//*********************************** **************

вот так по идее можно перекодировать