Транскодирование текста

[Tango]

Привожу упрощённый пример.
Знаю что 1000 раз уже спрашивали.
Спрашиваю 1001-й раз потому что.... сами попробуйте. Во всём хитросплетении не пойму.

Графическое приложение на Win 7 x64. Кодовая страница не установлена.

Код: Выделить всё

uses LConvEncoding;

  S1:=#$CF#$F0#$E8#$E2#$E5#$EF2#$00;   //'Привет'
  S:=ConvertEncoding(S1, 'cp1251', 'utf16'); // то же и с utf8
  Button1.Caption:=S;


Выводит ??????. Вопрос, ПОЧЕМУ???!! Я же перекодировал! Как так?

[VirtUX]

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var
  S1: string;
begin
  S1:=#$CF#$F0#$E8#$E2#$E5#$EF2#$00;   //'Привет'
  ShowMessage(CP1251ToUTF8(S1));
end;                 

Выводит Приве?

[hovadur]

Код: Выделить всё

S1:=#$CF#$F0#$E8#$E2#$E5#$EF2#$00;

должно быть так

Код: Выделить всё

S1:=#$CF#$F0#$E8#$E2#$E5#$F2#$00;

и utf8, а не utf16

[Tango]

Не заметил буквочки Е!!!

[VirtUX]

не важно как там с "букафками", главное - нет проблем с перекодировкой!