Здрав будь, всяк сюда входящий!

Да пребудет с тобой великая Сила!

понедельник, 12 июля 2010 г.

Русские буквы в консольных приложениях Delphi

Многие сталкивались с проблемой, когда консольное приложение, написанное в среде Borland Delphi отображает при запуске не русские буквы, а крякозябры :) Решение этой проблемы:

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils, Windows;

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

begin
  WriteLn(StrAnsiToOem('Это текст будет в консоли по русски!'));
end.

Комментариев нет:

Отправить комментарий