ListView Problem

[Andreas L.]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.Clear;
  XmlDoc.LoadFromFile('platten.xml');
  for i := 0 to XmlDoc.Root.Items.Count -1 do
  begin
    with ListView1.Items.Add do
    begin
      Caption := XmlDoc.Root.Items.Item[i].Items.ItemNamed['id'].Value;  // muss nicht befüllt sein ;-)
      SubItems.Add(XmlDoc.Root.Items.Item[i].Items.ItemNamed['Titel'].Value);
      SubItems.Add(XmlDoc.Root.Items.Item[i].Items.ItemNamed['Artist'].Value);
      SubItems.Add(XmlDoc.Root.Items.Item[i].Items.ItemNamed['Label'].Value);
      SubItems.Add(XmlDoc.Root.Items.Item[i].Items.ItemNamed['EAN'].Value);
    end;
  end;

Find ich schöner und man spart die Item Variable.