Windows XP Professional RUS + SP1

Параметры Memo:
Memo1.Font.Charset := OEM_CHARSET;
Memo1.Font.Name := 'Lucida Console';

Схема выглядит так:

Код

Схема WinLIRC       ----------------------------T---------¬           ¦                          -+¬        ¦     TK-19 ¦                  78L05   ¦ ¦4,7K    ¦        ---+--¬              ------¬  ¦ ¦        ¦        ¦  3  ¦              ¦     ¦  LT-        ¦  --¬  -¦    2+---T----------+1   3+---+--+-¬   L--+1¦  COM    ¦  1  ¦   ¦          ¦  2  ¦         ¦   ---+5¦(RS-232)    L--T---   ¦+         L--T---         L---+--+7¦       ¦     =+= 4,7mF      ¦                ¦  L--       ¦      ¦             ¦                ¦           L------+-------------+-----------------            COM (RS-232)        5  ----------¬  1      L--¦o o o o o¦---      ----\o o o o/---¬      9    L------    6                              http://video.softella.com/la/

Alex
Пример схемы выше отобразился абсолютно идентично тому, что выводится у меня в Memo.

у меня она выглядит также, получается, что сейчас твоя задача найти более нормальную функцию конвертации из Dos в Unicode

Значит так. Ситуация такая приведенный мною код выше полностью рабочий и он подходит для решения твоей проблемы. Можешь не тратить время, на поиски другого способа перекодировки я облазил весь российский и англоязычный Интернет. Проблема заключается в том, что стандартные VCL компоненты не умеют работать с Unicode. Если все-таки тебя интересует как можно отобразить Unicode, то советую посмотреть здесь http://www.esperanto.mv.ru/UniRed/RUS/index.html - это домашняя страница редактора UniRed, который великолепно отображает Unicode его автор русский и плюс на сайте лежат исходники написанные на Delphi
В общем, сделал все, что бы тебе помочь, а там уже дело твое пользоваться всем этим или нет.

Alex Абсолютно прав.
Для тех кто сомневается, положите на форму TImage и попробуйте такой код:

Код

function OemToWide (Src :AnsiString) :WideString; begin  SetLength(Result,Length(Src));  SetLength(Result,MultiByteToWideChar(CP_OEMCP, 0, PChar(Src), Length(Src), PWideChar(Result), Length(Result))); end; procedure TForm3.Button2Click(Sender: TObject); var  w :WideString;  R :tRect; begin  with TStringList.Create do try    LoadFromFile('cp866.txt');    w:= OemToWide(Text);  finally    Free;  end;  with  Image1  do begin    R := ClientRect;    Canvas.Font.Name := 'Lucida Console';    DrawTextW(Canvas.Handle,pWideChar(w),Length(w), R, 0);  end; end;

Увидите, что все нормально отображается.

Это сообщение отредактировал(а) Петрович - 27.11.2004, 22:46

Alex, Петрович
Спасибо Вам ОГРОМНОЕ, парни! Всё понял, тогда конечно воспользуюсь UniRed.