WriteConsoleOutputCharacter проблема отображения русского алфавита

[fondreykus-1]

Здравствуйте. Пользуюсь FreePascal в режиме Delphi compatible
Наткнулся вот на что: WriteConsoleOutputCharacter не хочет правильно отображать русский алфавит. Точнее, если написать следующее:

var  
  Wr: LongWord;
  P:_COORD;
  Output: Handle;
  Buff: Array[1..80] of Char;
begin
  Output:=GetStdHandle(STD_OUTPUT_HANDLE);
  P.x:=2;
  P.y:=2;
  Buff:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  WriteConsoleOutputCharacter(Output,@Buff,33,P,Wr);
end.

то половина букв будет просто проигнорирована, в строке будут пустые места. Причём с английским алфавитом такого не случается. Можно ли это как-нибудь "вылечить"? Заранее спасибо

[Stilet]

Перекодируй Buff функцией CharToOem, а уж потом выводи.

[fondreykus-1]

Поправьте, если я ошибаюсь, но FreePascal это OEM редактор и CharToOem там уже ни к чему. Проблема в том, что WriteLn(Buff[1..33]) работает как надо, а WriteConsoleOutputCharacter выкидывает фокусы.

[Stilet]

А при чем тут редактор?
У тебя сама программа консольная не понимает русского, вот ты и используй функцию-переводящую русский текст в понятную кодировку для консольного выполнения.

WriteLn(Buff[1..33]) работает как надо

Ну дык он стало быть кодрует этой функцией внутрях. Чего им не пользуешся, али задание такое?

[fondreykus-1]

Спасибо, обойдусь, наверно, без WriteConsoleOutputCharacter

[fondreykus-1]

Ура! Мне подсказали в чём проблема!
Как выяснилось, то что WriteConsoleOutputCharacter в место некоторых русских букв рисует пустые места - известный баг консоли.
помогает:
1. установка консоли векторного шрифта.
2. использование WriteConsoleOutputCharacterW.
3. использование других функций консоли для достижения требуемого эффекта.