Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

leonidus © (2006-11-06 12:06:00)
После долгих и упорных посиков, нашел функцию реализующую конвертацию строки формата 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, как для этого переделать указанную выше функцию?

Орион (2006-11-06 16:52:00) [1]
> [0] leonidus © (06.11.06 12:06)

тебя не поймешь, то ты хочешь unicode->utf8, то теперь наоборот :)
Utf8ToUnicode

Anatoly Podgoretsky (2006-11-06 12:32:00) [2]
Так они парами ходят, попробуй поменять местами слова UTF и Unicode, или взглянуть в справку

leonidus (2006-11-06 12:24:00) [3]
UTF8Decode я понял, я только по справке не догнал как эта функция работает...

Dmitrij_K (2006-11-06 12:18:00) [4]
UTF8Decode()

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »