XML

[yuta_86]

нет документ мой

<?xml version="1.0" encoding="utf-8"?>
<dbBuilder>
<dictionaries>
<measures>
<measure id="11" name="A" />
<measure id="12" name="B" />
<measure id="13" name="MBt" />
<measure id="14" name="МВар" />
<measure id="15" name="МВА" />
<measure id="16" name="Гц" />
<measure id="17" name="С*" />
<measure id="18" name="кВ" />
</measures>
</dictionaries>
</dbBuilder>

вытаскиваю функцией

Edit4.Text := VarToStr(XMLDocument1.DocumentEleme nt.ChildNodes['measure'].Attributes['name']);

[BARNEY]

мдя..... А смысл кода вы не поняли....

а так работает?

Edit4.Text := VarToStr(XMLDocument1.DocumentEleme nt.ChildNodes['dictionaries'].ChildNodes['measures'].Attributes['name']);

[yuta_86]

нет это также не работает...
а именно в поле eidt ничего не выводится.....
причём там был записан текст а после этот текст стирается....

[BARNEY]

убери VarToStr попробуй...
Можно циклом пройтись..но думаю тебе пока хоть так разобраться

[yuta_86]

ошибка при выполнении

could not convert type variant of type (Null) into type (string)

[BARNEY]

значит там пусто попробуй Id считать

[yuta_86]

тоже самое....

[BARNEY]

лишнее сам вырежешь

procedure TMain.Button8Click(Sender: TObject);
var
Xmldoc:IXMLDocument;
Ninode:IXMLNode;
I,ii,iii:integer;
sql:string;
begin
IBDatabase1.Connected:=true;

for Iii := 0 to ListBox1.Count - 1 do
begin
  Xmldoc:=TXMLDocument.Create(nil);
  Xmldoc.Active:=True;
  Xmldoc.LoadFromFile(Main.ListBox1.Items[iii]);
  for i:=0 to  Xmldoc.DocumentElement.ChildNodes.Count-1 do
  begin
    if Xmldoc.DocumentElement.ChildNodes[i].NodeName='measure' then
    begin
         Ninode:=Xmldoc.DocumentElement.ChildNodes[i];
         for II := 0 to Ninode.ChildNodes.Count - 1 do
         begin
          edit1.text:=Ninode.ChildNodes[ii].Attributes['name'];
         end;
    end;
  end;
 end;
end;

[yuta_86]

не работает
весь документ xml

<?xml version="1.0" encoding="utf-8"?>
<dbBuilder>
<dictionaries>
<measures>
<measure id="11" name="A" />
<measure id="12" name="B" />
<measure id="13" name="MBt" />
<measure id="14" name="МВар" />
<measure id="15" name="МВА" />
<measure id="16" name="Гц" />
<measure id="17" name="С*" />
<measure id="18" name="кВ" />
</measures>
</dictionaries>
</dbBuilder>

ваш код с редактированием

procedure TForm1.Button2Click(Sender: TObject);
var
Xmldoc:IXMLDocument;
Ninode:IXMLNode;
I,ii,iii:integer;
begin
Xmldoc:=TXMLDocument.Create(nil);
Xmldoc.LoadFromFile('input2.xml');
Xmldoc.Active:=True;
for i:=0 to Xmldoc.DocumentElement.ChildNodes.C ount-1 do
begin
if Xmldoc.DocumentElement.ChildNodes[i].NodeName='measure' then
begin
Ninode:=Xmldoc.DocumentElement.Chil dNodes[i];
for II := 0 to Ninode.ChildNodes.Count - 1 do
begin
edit1.text:=Ninode.ChildNodes[ii].Attributes['name'];
end;
end;
end;
end;

[BARNEY]

печалько у вас с понимаем кода....

procedure TMain.Button8Click(Sender: TObject);
var
Xmldoc:IXMLDocument;
Ninode:IXMLNode;
I,ii:integer;
begin
  Xmldoc:=TXMLDocument.Create(nil);
  Xmldoc.Active:=True;
  Xmldoc.LoadFromFile('c:\input2.xml');
  for i:=0 to  Xmldoc.DocumentElement.ChildNodes.Count-1 do
  begin
    if Xmldoc.DocumentElement.ChildNodes[i].NodeName='measure' then
    begin
         Ninode:=Xmldoc.DocumentElement.ChildNodes[i];
         for II := 0 to Ninode.ChildNodes.Count - 1 do
         begin
          memo1.lines.add(Ninode.ChildNodes[ii].Attributes['name']);
         end;
    end;
  end;
end;