ANTICHAT — форум по информационной безопасности, OSINT и технологиям

function MyCopy(Text, Tag1, Tag2: string): string;
var
  i1,i2: integer;
begin
  result := '';
  if (pos(Tag1, Text) <> 0) and (pos(Tag2, Text) <> 0) then
    begin
      i1 := pos(Tag1, Text) + length(Tag1);
      i2 := pos(Tag2, Text) - i1;
      if i2 > 0 then
        result := copy(Text,i1,i2);
    end;
end;

type
  Tarr = array of string;

procedure MyCopy(Text, Tag1, Tag2: string; var Result: Tarr);
var
  i1,i2: integer;
begin
  while true do
    begin
      i1 := pos(Tag1, Text);
      i2 := pos(Tag2, Text);
      if (i1 = 0) or (i2 = 0) or (i2 <= i1) then
        exit;
      setlength(Result,length(Result) + 1);
      Result[high(Result)] := copy(Text, i1 + length(Tag1), i2 - i1 - length(Tag1));
      Text := copy(Text,i2 + length(Tag2),length(Text) - i2 - length(Tag2));
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  A: Tarr;
  i: integer;
begin
  MyCopy('Форум <b>Античат</b> - безопасность <b>WEB</b> интерфейсов.', '<b>', '</b>', A);
  for i := 0 to high(A) do
    ShowMessage(A[i]);
end;