Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

3rd
Ноя

Пример работы с XML в delphi

Posted by Chas under Delphi

Stilet
Из всех примеров работы с XML остался только корявастенький

unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;
type

  TForm1 = class(TForm)

    XMLDocument1: TXMLDocument;

    ListBox1: TListBox;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);

{var e,n:IXMLNode;

begin

 XMLDocument1.LoadFromFile('D:\Ok\Aqua.xml');

 n:=XMLDocument1.DocumentElement.ChildNodes[0];

 if n<>nil then repeat

  e:=n.ChildNodes[1];

  ListBox1.Items.Add(e.NodeValue);

  n:=n.NextSibling;

 until n=nil;

end;

}

var f,e,n:IXMLNode;     i:integer;

begin

 XMLDocument1.LoadFromFile('C:\Documents and Settings\5097\Рабочий стол\B0000183.xml');

 n:=XMLDocument1.DocumentElement.ChildNodes[0];

 if n<>nil then repeat

  e:=n.ChildNodes[0];

  f:=n.ChildNodes[0];

  i:=0;

  while (e.ChildNodes.Count>i)and(f.Attributes['FieldName']<>'Number contract') do begin

   f:=e.ChildNodes;

   inc(i);

  end;

  ListBox1.Items.Add(f.NodeName+' '+f.NodeValue);

  n:=n.NextSibling;

 until n=nil;

end;

end.