Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> UTF8Encode не работает все-таки, Увы, но нет 
V
    Опции темы
Canada
Дата 15.1.2010, 15:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
В TStringlist сидит текст CP1251. 

Делаю: 

Код

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


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

Тут раньше разбирали, но у меня так и не заработала функция, в чем может быть дело. На выхлопе нужны закорючки от ЮТФ-8. Но их нет. Заранее благодарен.

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

Это сообщение отредактировал(а) Canada - 15.1.2010, 15:51
PM MAIL   Вверх
Frees
Дата 15.1.2010, 16:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
а разве не так надо?
Код

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



--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Canada
Дата 15.1.2010, 16:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
А все равно, и так тоже не помогает. CP1251.
PM MAIL   Вверх
Frees
Дата 15.1.2010, 16:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
Код


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


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

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


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Canada
Дата 15.1.2010, 16:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Ну так.. Написано. Это ж еще и увидеть надо.. Спасибо большое. Закрыто!  smile 
PM MAIL   Вверх
Canada
Дата 15.1.2010, 17:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
В общем, это виноват все-таки не я. Мне нужен кодированный в ЮТФ-8 текст, сам текст. Все делаю. Все работает. Бом мне не нужен. Но или TStringlist сам конвертит в CP1251 либо я не знаю. Закорючек в Блокноте нет. Там CP1251.  smile  smile  smile 
PM MAIL   Вверх
CodeMonkey
Дата 15.1.2010, 21:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 29
Всего: 89
Какой Дельфяк-то?

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


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Canada
Дата 16.1.2010, 03:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Delphi 7. Я уже и не знаю, что делать. Я уже все методы перепробовал. Открываю, а там виндовая кодировка.
PM MAIL   Вверх
Canada
Дата 16.1.2010, 08:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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

Это сообщение отредактировал(а) Canada - 16.1.2010, 08:58
PM MAIL   Вверх
CodeMonkey
Дата 18.1.2010, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 29
Всего: 89
Цитата(Canada @  16.1.2010,  08:57 Найти цитируемый пост)
Если кто напишет решение под 7-ку буду ужасно благодарен.

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


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.2267 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.