нужно объединить две строки в tstrings

[aesoem]

добрый день, нужна консультация...Что-то вообще догнать не могу...

Есть Tstrings.
Заполняет его clientsocket в связи с этим приходится бороться с разрывами пакетов. При разрыве, чтобы найти это место в блоке ставлю маркер - символы <+>

После завершения передачи, в переменной примерно следующий текст

начало

[next_client]
184.146.149.12:28901996
8
64
NsCpuC
launched...
-o s
<+>tratump x
no_comment
[next_client]
178.127.172.121:16319620
4
64

.......

Нужно удалить символы <+> и объединить строку идущую ДО строки в которой найден маркер разделения:

-o s

и

<+>tratump x

Предположим, нашел я через POS символы <+>,
удаляю от начала 3 символа (полностью <+>) но новый пакет начинается с новой строки.... Как их объединить? Пытался прикрутить Concat, как то не заработало )

[Аватар]

Перед ними еще два символа нужно удалить #13#10 из Text

[aesoem]

Сообщение от Аватар

Перед ними еще два символа нужно удалить #13#10 из Text

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


спасибо

[aesoem]

пришлось еще вводить маркер конца строки "&"

Еще вопрос, как узнать последний символ, предыдущей строки
пробовал так: (вернутся на несколько символов назад)

       
if pos('<+>',ReciveText.Text)>0 then //найден маркер соединения пакетов, нужно проверить выше ЕСТЬ ЛИ МАРКЕР КОНЦА СТРОКИ &, ЕСЛИ ЕСТЬ  НЕ ИСПОЛЬЗОВАТЬ #13#10

          if str[pos('<+>',ReciveText.Text)-2]<>'&' then  {В ЭТОИ УСЛОВИИ ПРИЧИНА ОШИБКИ ТУТ НУЖНО УЗНАЬТЬ ПОСЛЕДНИЙ СИМВОЛ ПРЕДЫДУЩЕЙ СТРОКИ}
          begin

           ReciveText.Text:=StringReplace( ReciveText.Text,#13#10+'<+>', '', [rfReplaceAll]) ;
          end
           else
          ReciveText.Text:=StringReplace( ReciveText.Text,'<+>', '', [rfReplaceAll]) ;

в теории -1 символ от <+> это начало новой строки и -2 это и есть конец предыдущей строки....

логика хотя бы верна? Если да, то правильно ли я отнимаю -2

[aesoem]

      for I := 1 to ReciveText.Count-1 do
        begin

          str_minus_one:=Recivetext.Strings[i-1];

          if ((pos('<+>',Recivetext.Strings[i])>0) and (str_minus_one[length(str_minus_one) ]<>'&')) then
              Recivetext.Strings[i]:=StringReplace( Recivetext.Strings[i],#13#10+'<+>', '', [rfReplaceAll]);

          if ((pos('<+>',Recivetext.Strings[i])>0) and (str_minus_one[length(str_minus_one) ]='&')) then
              Recivetext.Strings[i]:=StringReplace( Recivetext.Strings[i],'<+>', '', [rfReplaceAll]);

        end;

построчно работать тоже не получается...
Recivetext.Strings[i]:=StringReplac строку виде не удалит

[Аватар]

Построчно и не получится, в строках нет символов перевода каретки и строки. Они в Text. Последний символ предыдущей -3

[aesoem]

if pos('<+>',ReciveText.Text)>0 then //найден маркер соединения пакетов, нужно проверить выше ЕСТЬ ЛИ МАРКЕР КОНЦА СТРОКИ &, ЕСЛИ ЕСТЬ  НЕ ИСПОЛЬЗОВАТЬ #13#10

          if str[pos('<+>',ReciveText.Text)-3]<>'&' then  {В ЭТОИ УСЛОВИИ ПРИЧИНА ОШИБКИ ТУТ НУЖНО УЗНАЬТЬ ПОСЛЕДНИЙ СИМВОЛ ПРЕДЫДУЩЕЙ СТРОКИ}
       

           ReciveText.Text:=StringReplace( ReciveText.Text,#13#10+'<+>', '', [rfReplaceAll]) 
    
           else
          ReciveText.Text:=StringReplace( ReciveText.Text,'<+>', '', [rfReplaceAll]) ;

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

 if str[pos('<+>',ReciveText.Text)-3]<>'&' then

Можно например циклично до конца ReciveText.Text запустить проверку и изменять каждый маркер отдельно?
StringReplace получается не подходит?
у него только два параметра ?
rfReplaceAll : Заменяет все вхождения
rfIgnoreCase : игнорирует регистр при поиске

+
понятно, три.... Без параметра тоже считается, то что нужно )

[evg_m]

зачем все сначала собирать в Tstrings, ставить какие-то маркеры, потом разворачивать в строку, удалять маркеры, ...
Не проще ли просто сразу собирать в строку (или массив строк).
получая пакет записывать в соответствующий элемент массива строку данных.
когда все получено, просто собрать строку (r:=r+s[0]; r:=r+s[1]; ... r:=r+s[n]; ) и ... все.

[aesoem]

Сообщение от evg_m

зачем все сначала собирать в Tstrings, ставить какие-то маркеры, потом разворачивать в строку, удалять маркеры, ...
Не проще ли просто сразу собирать в строку (или массив строк).
получая пакет записывать в соответствующий элемент массива строку данных.
когда все получено, просто собрать строку (r:=r+s[0]; r:=r+s[1]; ... r:=r+s[n]; ) и ... все.

да, красиво... но поздно... Вроде все заработало, а главное правило - не трож технику если работает )

[aesoem]

Сообщение от evg_m

зачем все сначала собирать в Tstrings, ставить какие-то маркеры, потом разворачивать в строку, удалять маркеры, ...
Не проще ли просто сразу собирать в строку (или массив строк).
получая пакет записывать в соответствующий элемент массива строку данных.
когда все получено, просто собрать строку (r:=r+s[0]; r:=r+s[1]; ... r:=r+s[n]; ) и ... все.

да слишком много вариантов деления пакетов, все условными операторами не перекроешь..
Можно подробнее о данном способе?

я так понял если в переменную типа
string:=string+resivetext писать полученные данные разрывов не будет?