[ART]

Код:

function MyPos(SubStr, Str:string; i:integer; dir:byte):integer;
var
j:integer;
begin
 case dir of
  0: for j := i to Length(Str) - Length(SubStr) + 1 do
      if Copy(Str, j, length(SubStr)) = SubStr then begin
       Result := j;
       exit;
      end;
  1: for j := i - length(SubStr) downto 1 do
      if Copy(Str, j, length(SubStr)) = SubStr then begin
       Result := j;
       exit;
      end;
 end;
Result := 0;
end;

function RemoveHTMLTags(text: string): string;
var
 i1, i2: integer;
begin
 i1 := 0;
 i2 := 0;
 repeat
  i1 := MyPos('<', text, 1, 0);
  if i1 = 0 then break;
  i2 := MyPos('>', text, i1, 0);
  if i2 = 0 then break;
  Delete(text,  i1,  i2 - i1 + 1);
  text := trim(text);
 until false;
Result := text;
end;