Hi, wenn ich das mache, kommt eine Fehlermeldung (Anhang).
So ist der Code mittlerweile:
Delphi-Quellcode:
const
NAMEN: array[0..8] of string = ('name', 'format', 'ton',
'anzmedien', 'bildqualität',
'tonqualität', 'gesamt',
'verliehen', 'comment');
var
movies : IXMLDOMNodeList;
subnode: IXMLDomNode;
i, j : Integer;
begin
ListView1.Items.Clear;
ListView1.Items.BeginUpdate;
movies:=xmlDoc.documentElement.selectNodes('movie');
for i:=0 to movies.length -1 do begin
subnode:=movies.item[i].selectSingleNode('id');
ListView1.Items.Add;
ListView1.Items[i].Caption:=SubNode.Text;
with ListView1.Items[i].SubItems do begin
for j:=0 to length(NAMEN) do begin
subNode:=movies.item[i].selectSingleNode(NAMEN[j]);
if subNode <> nil then
Add(SubNode.text)
else
Add('');
end;
end;
end;
ListView1.Items.EndUpdate;
end;
Was hat diese Fehlermeldung zu bedeuten??