Форум: "Начинающим";
Текущий архив: 2006.11.26;
Скачать: [xml.tar.bz2];
Вниз
Не пойму как работает функция 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 1.029 c
