unit TagParser;

interface

uses
  ParserUnit;

type
  TTagBaseParserList = class(TParserList)
  end;

  TStartTag = class(TParserItem)
	function Execute(Index: Integer): Boolean; override;
  end;

  TEndTag = class(TParserItem)
	function Execute(Index: Integer): Boolean; override;
  end;

  TNormalText = class(TParserItem)
	function Execute(Index: Integer): Boolean; override;
  end;

implementation

{ TStartTag }

function TStartTag.Execute(Index: Integer): Boolean;
begin
  Result := False;

  if ParentParser.Text[Index] = '<' then
    Result := True;
end;

{ TEndTag }

function TEndTag.Execute(Index: Integer): Boolean;
begin
  Result := False;

  if ParentParser.Text[Index] = '>' then
    Result := True;
end;

{ TNormalText }

function TNormalText.Execute(Index: Integer): Boolean;
begin
  Result := True;
end;

end.