- end else if FCutoffNum > 0 then begin
- bufline := ThreadStrings.Strings[i];
- for j := 0 to 2 do begin
- Delete(bufline,1,Ansipos('<>',bufline)+1);
- end;
- Delete(bufline,Ansipos('<>',bufline),Length(bufline)-Ansipos('<>',bufline)+1);
- if Cutoff(bufline) = true then begin
- ThreadStrings.Strings[i] := FAbonString;
- end else begin
- bufline := ThreadStrings.Strings[i];
- if Deleterlo = true then begin
- bufline := AnsiReplaceText( bufline,'&rlo;','' );
- end;
- if Replaceul = true then begin
- bufline := AnsiReplaceText( bufline,'<ul>','<br>' );
- bufline := AnsiReplaceText( bufline,'</ul>','<br>' );
- end;
- ThreadStrings.Strings[i] := bufline;
- end;