ListView Problem

[shmia]

Delphi-Quellcode:

// ungetested
procedure TForm1.FormCreate(Sender: TObject); 
begin 
 ListView1.Clear; 
 XmlDoc.LoadFromFile('platten.xml'); 
  for i := 0 to XmlDoc.Root.Items.Count -1 do 
  begin 
    Item := ListView1.ITems.Add; 
    Item.Caption := XmlDoc.Root.Items.Item[i].Items.ItemNamed['id'].Value;  // wichtig, Caption muss befüllt werden

    Item.SubItems.Add(XmlDoc.Root.Items.Item[i].Items.ItemNamed['Titel'].Value); 
    Item.SubItems.Add(XmlDoc.Root.Items.Item[i].Items.ItemNamed['Artist'].Value); 
    Item.SubItems.Add(XmlDoc.Root.Items.Item[i].Items.ItemNamed['Label'].Value); 
    Item.SubItems.Add(XmlDoc.Root.Items.Item[i].Items.ItemNamed['EAN'].Value); 
  end;