Скачать: CL | DM;

Не пойму как работает функция 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, или взглянуть в справку

---

← →
Орион ©   (2006-11-06 16:52) [4]

> [0] leonidus ©   (06.11.06 12:06)

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.048 c