ListView Problem

**tschinkes**

Hallo, ich versuche per SimpleXML die Daten auszulesen und in eine ListView einzulesen. leider beginnt die Listview in der zweiten Spalte und ich weiß net warum, hab schon ein paar dinge probiert aber nix funktioniert.

mein Code zum auslesen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject);

begin

ListView1.Clear;

XmlDoc.LoadFromFile('platten.xml');

Item := ListView1.ITems.Add;

counter := XmlDoc.Root.Items.Count;

for i := 0 to counter -1 do

begin

    Item.SubItems.Add(XmlDoc.Root.Items.Item[i].Items.ItemNamed['id'].Value);

    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;

end;

**shmia**

zusammenfalten · markieren

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;

**tschinkes**

Ahhhhhhh ok, danke funktioniert ohne Probleme.
Also wenn ich es jetzt so richtig verstanden hab, ist die erste Spalte sozusagen die Orientierungsspalte und die ab der zweiten die SubItems, die über die jeweiligen Arrays abgerufen werden können?
Wiesder etwas gelernt, Danke!

zusammenfalten · markieren

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.

**Mackhack**

Zitat von tschinkes:

Ahhhhhhh ok, danke funktioniert ohne Probleme.
Also wenn ich es jetzt so richtig verstanden hab, ist die erste Spalte sozusagen die Orientierungsspalte und die ab der zweiten die SubItems, die über die jeweiligen Arrays abgerufen werden können?
Wiesder etwas gelernt, Danke!

So kann man sichs merken ja! 8)

**mkinzler**

Eher Listen als Arrays, aber sonst stimmt es

ListView Problem

ListView Problem

Re: ListView Problem

Re: ListView Problem

Re: ListView Problem

Re: ListView Problem

Re: ListView Problem

Forumregeln

tschinkes Registriert seit: 29. Jun 2004 Ort: Mannheim 29 Beiträge Delphi 7 Enterprise	#3 Re: ListView Problem 1. Jul 2008, 16:00 Ahhhhhhh ok, danke funktioniert ohne Probleme. Also wenn ich es jetzt so richtig verstanden hab, ist die erste Spalte sozusagen die Orientierungsspalte und die ab der zweiten die SubItems, die über die jeweiligen Arrays abgerufen werden können? Wiesder etwas gelernt, Danke! Tobi
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.874 Beiträge Delphi 11 Alexandria	#6 Re: ListView Problem 1. Jul 2008, 19:45 Eher Listen als Arrays, aber sonst stimmt es Markus Kinzler
	Zitat