Как преобразовать, например. CodePage 1250 (Windows-1250) в Unicode с использованием Lazarus

Question

Цель:

Использование Lazarus создать функцию для строк преобразования из CodePage 1250 (Windows-1250) в Unicode.

Answer 1

Я нашел только один способ сделать это эффективно, не стесняйтесь добавлять свои собственные исследования.

uses 
    LConvEncoding; 

...

function ConvertStrFromCP1250ToUnicode(TextAsCP1250: string): unicodestring; 

var 
    TextAsUTF8: string; 

begin 

    TextAsUTF8 := CP1250ToUTF8(TextAsCP1250); 

    Result := TextAsUTF8; 

end;