Русские символы в консоле

[pimple2006]

Здравствуйте,скажите как сделать нормальное отображение кириллицы в консоле

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,Windows,System;



Var i:integer;
    s:string;
begin

   s:='константин';
   for i:=1 to Length(s) do begin
      writeln(ord(s[i]),);
      //под этими числами действительно русские буквы
      writeln(chr(byte(s[i])));
      //а тут выдает кракозябры что с ord что c byte
   end;
   readln;
end.

P.S говорят,надо поставить default-char-set=сp1251 в нете и по форуму не нашел

[phomm]

Вот тебе прога с модулем преобразования строк. В проге - пример использования функции преобразования

[FaTaL]

Используйте последние Юникодные версии Delphi и много проблем исчезнет, в том числе и Ваша.