delphi пробелы самообразования

[vovk]

Не знаю на сколько название отображает вопрос, но всё же..

Предыстория: Надо было разобрать XML создаваемый одной программой, вот сел нарисовал блок-схему, какие то структуры наметил, всё вроде хорошо, но тут заглянул в "Delphi world" и обнаружил там небольшой парсер
и в нём

type
  PXMLNode = ^TXMLNode;

  TXMLValues = (TextNode, XMLNode);
  TXMLNode = record
    Name: string;
    Attributes: array of record
      Name: string;
      Value: string;
    end;
    SubNodes: array of record
      RecType: TXMLValues;
      case TXMLValues of
        TextNode: (Text: PString);
        XMLNode: (XML: PXMLNode);
    end;
    Parent: PXMLNode;
  end;

В общем то мне понятно что происходит, но не понятно как это строится,
и я понял, в моих знаниях АЗОВ огромные дыры.

И наконец то вопрос,


Посоветуйте что прочитать чтоб эти дыры закрыть.

Споткнулся я об это

SubNodes: array of record
      RecType: TXMLValues;
      case TXMLValues of
        TextNode: (Text: PString);
        XMLNode: (XML: PXMLNode);
    end;
    Parent: PXMLNode;
  end;

[GunSmoker]

Если это переписать, то:

type
  PXMLNode = ^TXMLNode;

  TXMLValues = (TextNode, XMLNode);

  TAttribute = record
    Name: string;
    Value: string;
  end;

  TSubNode = record
    RecType: TXMLValues;
    case TXMLValues of
      TextNode: (Text: PString);
      XMLNode: (XML: PXMLNode);
  end;

  TAttributes = array of TAttribute;

  TSubNodes = array of TSubNode;

  TXMLNode = record
    Name: string;
    Attributes: TAttributes;
    SubNodes: TSubNodes;
    Parent: PXMLNode;
  end;

Насчёт case внутри record - см. http://docwiki.embarcadero.com/RADSt...rts_in_Records