VPF::Альтернатива TEncoding ? - Форум программистов

navodri

Дата 30.5.2010, 14:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 26.10.2007

Репутация: нет
Всего: -1

Есть функция, которая использует TEncoding, а так, как у меня более старая версия компилятора, то соответственно она не работает. Есть ли альтернатива? Или, может, представленный код можно по-другому переписать?

Код


function EncodeToURLFormat(s: string): string;
var
 bytes: TBytes;
 i: integer;
begin
//здесь используется класс TEncoding, поэтому этот пример работает только в делфи 2009 и выше
//если хочется использовать другую версию делфи - то функцию надо будет переписать
  Result:='';
  bytes:=TEncoding.UTF8.GetBytes(s);
  for i := 0 to Length(bytes) - 1 do
    Result:=Result+'%'+IntToHex(bytes[i],2);
end;

Proxin

Дата 30.5.2010, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: 1
Всего: 3

utf8encode? попробуйте - может подойти в вашем случае.

CodeMonkey

Дата 30.5.2010, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Цитата(navodri @ 30.5.2010, 14:33

)

а так, как у меня более старая версия компилятора, то соответственно она не работает

Если вопрос только в переводе строки в UTF-8, то есть UTF8Encode или AnsiToUTF8, если вопрос про использование TEncoding в старых версиях Delphi, то - Работа с текстовыми файлами в любой кодировке из Delphi до 2009, если же вопрос про произвольную кодировку, то MLang в Delphi.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »