Загрузить данные из XML в ComboBox

@Dryg · Регистрация: 09.04.2009

Author24 — интернет-сервис помощи студентам

Привет!! ребят помогите как сделать чтобы из XML в ComboBox1 данные грузились

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
XMLDocument1.LoadFromFile('http://мой сайт.ru/xml');
XMLDocument1.Active := true;
ComboBox1.Items.Add(XMLDocument1.DocumentElement.ChildNodes['version'].
ChildNodes.Nodes[1].Attributes['it']);
XMLDocument1.Active := false;
end;

Я только получаю естественно только одну запись, а их там штук двадцать и может увеличиться до 5 раз в день

код XML

XML

<version>
<items id="1" it="10.6"/>
<items id="2" it="10.5"/>
</version>

@Ales'hon'ne · 01.04.2012, 11:19

Возможно, что как-то так:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  XMLDocument1.LoadFromFile('http://мой сайт.ru/xml');
  XMLDocument1.Active := true;
  with XMLDocument1.DocumentElement.ChildNodes['version'].ChildNodes do
    for i:=0 to Count-1 do
      ComboBox1.Items.Add(Nodes[i].Attributes['it'])
  XMLDocument1.Active := false;
end;

@Dryg · 01.04.2012, 12:14 **[ТС]**

Спасибо работает!! но выдает ошибку

First chance exception at $756BB9BC. Exception class EVariantTypeCastError with message 'Could not convert variant of type (Null) into type (OleStr)'. Process Project1.exe (3640)

ругается на этот код

Delphi

1	ComboBox1.Items.Add(Nodes[i].Attributes['it']);

	01.04.2012, 12:14