Не пойму как работает функция Utf8ToUnicode

← →
leonidus © (2006-11-06 12:06) [0]

После долгих и упорных посиков, нашел функцию реализующую конвертацию строки формата Unicode в UTF-8, если кому интересно то вот она:

function Utf8Encode(const WS: WideString): UTF8String;
var
L: Integer;
Temp: UTF8String;
begin
Result := "";
if WS = "" then Exit;
SetLength(Temp, Length(WS) * 3); // SetLength includes space for null terminator
L := UnicodeToUtf8(PChar(Temp), Length(Temp)+1, PWideChar(WS), Length(WS));
if L > 0 then
SetLength(Temp, L-1)
else
Temp := "";
Result := Temp;
end;

Но мне нужна обратная функция, что бы на вход подать UTF-8 строку, а на выходе получить Unicode, как для этого переделать указанную выше функцию?

← →
Dmitrij_K (2006-11-06 12:18) [1]

UTF8Decode()

← →
leonidus © (2006-11-06 12:24) [2]

UTF8Decode я понял, я только по справке не догнал как эта функция работает...

← →
Anatoly Podgoretsky © (2006-11-06 12:32) [3]

Так они парами ходят, попробуй поменять местами слова UTF и Unicode, или взглянуть в справку

Не пойму как работает функция Utf8ToUnicode Найти похожие ветки