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

[evg_m]

a:='ма';

b:=a+a; // ='мама';

[aesoem]

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

a:='ма';

b:=a+a; // ='мама';

пробовал, чет совсем не то...


вроде еще один возможный вариант остался у меня... )))
Нужно убрать маркер <+> при условии, что на предыдущей строке последний символ & и псоледний символ ТЕКУЩЕЙ строки так-же РАВЕН &
Пытался вот так организовать...

   if (str[pos('<+>',ReciveText.Text)-3]='&') and (LostSymbol(ReciveText.Strings[i])='&') then     {если на предылущей строке конец символ и на текущейсимвол конец }
           ReciveText.Text:=StringReplace( ReciveText.Text,'<+>', '', []);

данный код выполняется в цикле, столько раз сколько есть строк..
Но мне так кажется в функцию LostSymbol передается не та строка....
(проверить не могу так как фрагментация пакета всегда разная )

[Filka]

function FixStr(const S: string): string;
const
  cMarker = #13#10'<+>';
var
  Sp, Rp, Mp: PChar;
  I: Integer;
begin
  SetLength(Result, Length(S));
  Sp := PChar(S);
  Rp := PChar(Result);
  while Sp^ <> #0 do
  begin
    if Sp^ = cMarker[1] then
    begin
      Mp := Sp;
      Inc(Sp);
      I := 2;
      while (Sp^ <> #0) and (I <= Length(cMarker)) do
      begin
        if Sp^ <> cMarker[I] then
          Break;
        Inc(I);
        Inc(Sp);
      end;
      Dec(I);
      if I <> Length(cMarker) then
        Sp := Mp;
    end;
    Rp^ := Sp^;
    Inc(Sp);
    Inc(Rp);
  end;
  SetLength(Result, Rp - PChar(Result));
end;

ReciveText.Text := FixStr(ReciveText.Text);

?

[aesoem]

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

function FixStr(const S: string): string;
const
  cMarker = #13#10'<+>';
var
  Sp, Rp, Mp: PChar;
  I: Integer;
begin
  SetLength(Result, Length(S));
  Sp := PChar(S);
  Rp := PChar(Result);
  while Sp^ <> #0 do
  begin
    if Sp^ = cMarker[1] then
    begin
      Mp := Sp;
      Inc(Sp);
      I := 2;
      while (Sp^ <> #0) and (I <= Length(cMarker)) do
      begin
        if Sp^ <> cMarker[I] then
          Break;
        Inc(I);
        Inc(Sp);
      end;
      Dec(I);
      if I <> Length(cMarker) then
        Sp := Mp;
    end;
    Rp^ := Sp^;
    Inc(Sp);
    Inc(Rp);
  end;
  SetLength(Result, Rp - PChar(Result));
end;

ReciveText.Text := FixStr(ReciveText.Text);

?

так сделал )

function JoinStr(const S: string): string;
Const
MarkEndStr = '&';
var
  temp  : Tstrings;
  i : integer;
  STemp1,STemp2:String;
begin
temp:=tstringlist.Create;
temp.Text:=S;

for I := 1 to temp.Count-1 do
  if pos(#13#10'<+>',temp.Text)>0 then
  begin
   STemp1:=temp.Strings[i-1];
   STemp2:=temp.Strings[i];

   if (STemp1[length (Stemp1) ]=MarkEndStr) and (STemp2[length (Stemp2) ]=MarkEndStr) then
    temp.Strings[i]:= StringReplace( temp.Strings[i],'<+>', '', []);
  end;

result:=temp.Text;
temp.Free;
end;

[Filka]

Мой вариант не смотрел? Не проверял текст из самого первого поста?

[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