обработка строк

[Razyiller]

Как обработать строку в которой есть коды смайликов, чтобы вывелся и текст и смайлик в RichView? что то не могу сообразить

[Stilet]

Ну как как...
например идешь циклом по строке и проверяешь
if copy(s,i,2)='' then Это смайлик

[Вадим Буренков]

Есть еще функция pos в Sysutils. Она проверяет содержит ли строка x подстроку y (в данном случае смайлик) и возвращает ее позицию.

[Stilet]

pos не удобна тем что ищет только первое вхождение.

[Razyiller]

Вот ошибочка получается в коде

 
   For q:=1 to ColSm do  
     For l:=1 to Length(text) do
        begin
         if copy(text,l,Length(SmileCod[q]))= SmileCod[q]
          then
            begin
             JvGIFAnimator1.Image:=SmileImage[q].Image;
             ChatRichEdit.AddControlEx('',JvGIFAnimator1 , -1, rvvaMiddle);
             ChatRichEdit.format;
            end;

        end;

ColSm- количество смайликов
Text - сообщение
SmileCod - массив кодов смайликов
SmileImage - массив JvGIFAnimator куда уже загружены смайлики

ошибка

[Kotofff]

1) Кто тебя научил делать так: JvGIFAnimator1.Image:=SmileImage[q].Image ???
2) ChatRichEdit.AddControlEx... ты хоть на немного help по компонентам читал? Или был на их форуме поддержки ? При выполнении AddControl объект помещается в компонент RichView и далее по твоему циклу если ты попытаешь хоть что-то сделать с JvGIFAnimator1 естественно будет ошибка - тебе придется создавать массив JvGIFAnimator`ов и про каждый после добавления в RichView, так сказать, забывать.
3) Я уже говорил тут на форуме о том, что очень не советую работать с RichView как с обычным Memo, т.е. бездумно пихать в него все можно. Нет конечно запихнуть можно, например, 200 JvGIFAnimator`ов со смайлами gif-формата размером 16х16 которые даже будут двигаться - даже самая мощная домашняя машина повиснет наглухо при попытке закрыть такую прогу. Почему? Потому что RichView при помещении в него такого сложного с точки зрения обработки ресурса компонента как JvGIFAnimator, создает для него отдельный процесс до которого никак не "долезть".
4) http://programmersforum.ru/showthrea...light=RichView
5) В прикрепленном файле пример очень давно написанный создателем компонентов RichView ...
Там все что тебе надо для понимания проблемы.

[Razyiller]

спс разбераюсь

[Razyiller]

возникла проблема с обработкой строки в которой и тект и код смайлика, если есть варианты помогите

Код:

while l<=Length(ss) do
       begin
            if  ss[l]='#'
              then
                begin
                  ChatRichEdit.AddText(Copy(ss,0,l-1),0);
                  ChatRichEdit.ReFormat;
                  Delete(ss,0,l);
                 for q:=1 to colSm do
                  begin
           if (copy(ss,l,Length(SmileCod[q]))=SmileCod[q])and((copy(ss,l,Length(SmileCod[q]))<>''))
                      then
                        begin
                          ChatRichEdit.AddControlEx('',SmileImage[q] , -1, rvvaMiddle);
                          ChatRichEdit.reformat;
                          Delete(ss,l,Length(SmileCod[q]));
                        end;
                  end;
                end;

          l:=l+1;
       end;

[Razyiller]

УРА,разобрался,все работает