Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];

Вниз

TRichEdit и большой текст   Найти похожие ветки 

 
Serg1981 ©   (2006-03-04 23:32) [0]

Здравствуйте, есть фрагмент кода, который выделяет нужные фрагменты нужным цветом в TRichEdit:
         num := 0;
         str := "123";

         while true do
          begin
           num := PosEx(str, Editor.Text, num + 1);
           if num <> 0 then
            begin
             Editor.SelStart := num - 1;
             Editor.SelLength := Length(str);
             Editor.SelAttributes.Color := clRed
            end
             else Break
          end;

Всё работает отлично, пока в TRichEdit не загрузишь большой текст (150 страниц, 500 тыс. символов). Почему в большом тексте слова не выделяются ? Переменная num имеет тип Integer, искомая комбинация в тексте имеется ТОЧНО.
Спасибо.


 
TUser ©   (2006-03-05 09:56) [1]

> искомая комбинация в тексте имеется ТОЧНО.

Это действительно так? В частности - не разбита ли она на две строки?


 
Serg1981 ©   (2006-03-05 12:50) [2]

Нет не разбита, слово есть целиком. Проблема поиска возникает именно в больших текстах.


 
Serg1981 ©   (2006-03-06 22:50) [3]

Может у кого есть другой алгоритм выделения цветом нужных фрагментов ? Авось он заработает на больших текстах.


 
имя   (2006-03-09 08:57) [4]

Удалено модератором



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.012 c
8-1130620561
MegaGaga
2005-10-30 01:16
2006.04.09
Как использовать функции для рисованмя на Canvas`е на битмапе?


2-1143303177
Farpik
2006-03-25 19:12
2006.04.09
Небольшие вопросики!


10-1116491301
_Max
2005-05-19 12:28
2006.04.09
Копирование в Word`е


2-1143446541
Yojik
2006-03-27 12:02
2006.04.09
НЕмодальное->Модальное


15-1142442463
TStas
2006-03-15 20:07
2006.04.09
Как называется программа?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский