1. Pascal / Говнокод #21961

    −49

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    program XMLParser;
     
    {$APPTYPE CONSOLE}
     
    {$R *.res}
     
    uses
      System.SysUtils,
      Xml.XMLDoc, XMLIntf;
     
    var XMLDocument1 : TXMLDocument;
        Node : IXMLNode;
     
    begin
    XMLDocument1:=TXMLDocument.Create('Путь до файла\Text1.XML');
    XMLDocument1.LoadFromFile('Путь до файла\Text1.XML');
    XMLDocument1.Active := true;
    Node.GetAttribute(WideString('x'));
    WriteLn;
    XMLDocument1.Active := false;
    end.

    Путь до файла. бгг

    Запостил: chizztectep, 10 Января 2017

    Комментарии (1) RSS

    • @XMLDocument1:=TXMLDocument.Create('Путь до файла\Text1.XML');
      Владельцем должен быть TComponent, иначе будет UB (об этом в доке пишут).

      Откуда в строке #15 "Путь до файла\Text1.XML", навеки останется тайной.
      Ответить

    Добавить комментарий