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

[Smagulov85]

Привет!!

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

Этот код работает но выдает ошибку

Exception class EVariantTypeCastError with message 'Could not convert variant of type (Null) into type (OleStr)'.

Побывал так

uses Classes, Variants;
function OleVariantToString(const Value: OleVariant): string;
var ss: TStringStream;
Size: integer;
Data: PByteArray;
begin
Result:='';
if Length(Value) = 0 then Exit;
ss:=TStringStream.Create;
try
Size := VarArrayHighBound (Value, 1) - VarArrayLowBound(Value, 1) + 1;
Data := VarArrayLock(Value);
try
ss.Position := 0;
ss.WriteBuffer(Data^, Size);
ss.Position := 0;
Result:=ss.DataString;
finally
VarArrayUnlock(Value);
end;
finally
ss.Free;
end;
end;

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

Выдает другую ошибку

Exception class EVariantInvalidArgError with message 'Invalid argument'.


как это исправить!!!! Заранее спасибо!!

[evg_m]

Этот код работает но выдает ошибку

Exception class EVariantTypeCastError with message 'Could not convert variant of type (Null) into type (OleStr)'.

в одном из полученных узлов XMLDocument1.DocumentElement.ChildN odes['version'].ChildNodes
нет запрошенного атрибута Nodes[i].Attributes['it'] есть NULL
if Nodes[i].Attributes['it'] =nil
if IsNULL(Nodes[i].Attributes['it'])
if Nodes[i].Attributes['it'] =NULL

[Smagulov85]

Сообщение от evg_m

в одном из полученных узлов XMLDocument1.DocumentElement.ChildN odes['version'].ChildNodes
нет запрошенного атрибута Nodes[i].Attributes['it'] есть NULL
if Nodes[i].Attributes['it'] =nil
if IsNULL(Nodes[i].Attributes['it'])
if Nodes[i].Attributes['it'] =NULL

Все спасибо!! я разобрался сам!! Все гораздо проще

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