Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > UTF8Encode не работает все-таки


Автор: Canada 15.1.2010, 15:50
В TStringlist сидит текст CP1251. 

Делаю: 

Код

 UTF8Encode(TStringlist.Text);
 TStringlist.SaveToFile('1.txt');


Как был гад cp1251, так и остается. smile  В чем проблема?

http://forum.vingrad.ru/forum/topic-250480/unread-1/kw-utf-utf-/hl/utf8encode/index.html раньше разбирали, но у меня так и не заработала функция, в чем может быть дело. На выхлопе нужны закорючки от ЮТФ-8. Но их нет. Заранее благодарен.

Добавлено через 8 минут и 9 секунд
А не TStringList ли мне при сохранении ли дефолтную кодировку назначает?

Автор: Frees 15.1.2010, 16:04
а разве не так надо?
Код

TStringlist.Text := UTF8Encode(TStringlist.Text);

Автор: Canada 15.1.2010, 16:10
А все равно, и так тоже не помогает. CP1251.

Автор: Frees 15.1.2010, 16:14
Код


TStringlist.Text := #$EF#$BB#$BF+UTF8Encode(TStringlist.Text);


Добавлено через 34 секунды
Цитата(Canada @  15.1.2010,  18:50 Найти цитируемый пост)
Тут раньше разбирали

там же все написано....

Автор: Canada 15.1.2010, 16:26
Ну так.. Написано. Это ж еще и увидеть надо.. Спасибо большое. Закрыто!  smile 

Автор: Canada 15.1.2010, 17:19
В общем, это виноват все-таки не я. Мне нужен кодированный в ЮТФ-8 текст, сам текст. Все делаю. Все работает. Бом мне не нужен. Но или TStringlist сам конвертит в CP1251 либо я не знаю. Закорючек в Блокноте нет. Там CP1251.  smile  smile  smile 

Автор: CodeMonkey 15.1.2010, 21:19
Какой Дельфяк-то?

Если юникодный, то у SaveToFile есть второй параметр, и руками никаких UTF8-функций вызывать не надо.

Автор: Canada 16.1.2010, 03:25
Delphi 7. Я уже и не знаю, что делать. Я уже все методы перепробовал. Открываю, а там виндовая кодировка.

Автор: Canada 16.1.2010, 08:57
Ужас конечно, что такими средствами приходится все решать, но Delphi 2009 разрешил проблему. Если кто напишет решение под 7-ку буду ужасно благодарен.

Автор: CodeMonkey 18.1.2010, 11:17
Цитата(Canada @  16.1.2010,  08:57 Найти цитируемый пост)
Если кто напишет решение под 7-ку буду ужасно благодарен.

Демку-то выложи.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)