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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> RichEdit и русские символы. 
:(
    Опции темы
Garmahis
Дата 27.1.2006, 19:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
Добрый день!
Я в РичЭдит загружаю сохранёную на диск хтмл страничку командол LoadFromFile. Там открывается всё нормально весь код странички, но когда я пытаюсь работать с текстом например в простую стринговую переменную загружаю строчку из эдита, то все русские символы заменяются вопросительными знаками! Подскажите пожалуйста что делать!
PM   Вверх
Guedda
Дата 27.1.2006, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Поменять кодировку в RichEdit
Код

RichEdit1.Font.Charset := RUSSIAN_CHARSET;



--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Garmahis
Дата 27.1.2006, 21:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
Не помогает smile Я уж извратился добавил дополнительный мемо и туда переписал весь текст. С мемо всё работает нормально, но это извращение. Может кто посоветует?
PM   Вверх
Guedda
Дата 27.1.2006, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
А ты просто загружаешь html в rich, или проводишь какие либо действия (типа подсветка синтаксиса)?
Если проводишь, то выложи код действия над строками... Разберемся...


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Garmahis
Дата 27.1.2006, 21:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
Да нет ничего не подсвечиваю... вот текс.
Код

RichEdit1.Lines.LoadFromFile('C:\Save.htm');
for i:=0 to RichEdit1.Lines.Count-1 do
begin
s:= RichEdit1.Lines[i];
if Pos('флот', s)>0 then
begin
s1:=Copy(s,Pos('title="',s)+7,Length(s)-Pos('" href="?',s));
Delete(s1,Pos('"',s1),Length(s1));
flag:=False;
for a:=1 to Length(s1) do
begin
s2:=Copy(s1,a,1);
flag1:=False;
for b:=0 to 9 do
if s2=IntToStr(b) then flag1:=True;
if flag1=True then flag:=True;
if (flag=True) and (flag1=False) then
begin
Insert(', ',s1,a);
flag:=False;
end;
end;
Insert(': '+s1,s,Pos('флот',s)+4);
RichEdit1.Lines[i]:=s;
end;
end;


Вот и всё. Но ничего не работает потому что даже когда я проверяю наличие слова "флот" то он его не находит...
Хотя в самом едите оно присутсвует. А в с вместо флота "????"
Добавлено @ 21:55
Я уже думал проблема с кодировкой... Нифига...
PM   Вверх
Guedda
Дата 27.1.2006, 22:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Сейчас попробовал у себя на машине твой код... У меня все работает.
Может и правда что с кодировкой у тебя?
Винда какая стоит, русская или английская?


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Snowy
Дата 27.1.2006, 22:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Цитата(Garmahis @ 27.1.2006, 21:54 Найти цитируемый пост)

Я уже думал проблема с кодировкой... Нифига...

Как раз фига.
Проблема с юникодом.
у тебя html в юникоде. Отсюда и проблемы.
Для начала определись с какой кодировкой собираешся работать,а потом приведи текст или код к нужному виду.
Лучше текст.
PM MAIL   Вверх
Garmahis
Дата 27.1.2006, 23:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
А опчему тогда в самом едите всё нормально показывает?
В файле написано что кодировка кои
<META http-equiv=content-type content="text/html; charset=koi8-r">
Когда я пробывал перекодировать, то получалась полная белиберда...
PM   Вверх
Garmahis
Дата 28.1.2006, 00:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
Вот сам фаил.

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  Save.rar 3,61 Kb
PM   Вверх
Snowy
Дата 28.1.2006, 01:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Странный хтмл.
В заголовке указана KOI8, а в реале 1251.
Может проблема и не в этом, но мысли наводит...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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