TDtdElementRec

type TDtdElementRec = record

  Start: PAnsiChar;

  Final: PAnsiChar;

  case ElementType: TDtdElemType of

    deElement, deAttList: (

        ElemDef: TElemDef;

      );

    deEntity: (

        EntityDef: TEntityDef;

      );

    deNotation: (

        NotationDef: TNotationDef;

      );

    dePI: (

        Target: PAnsiChar;

        Content: PAnsiChar;

        AttrList: TAttrList;

      );

    deError: (

        Pos: PAnsiChar;

      );

end;