So, hab mal bissel rumgewurschtelt und versucht Titel und Beschreibung jeweils in eine ListBox auszugeben.
Mit den Titeln klappt das wunderbar, aber die Beschreibung wird nicht angezeigt
Wenn ich einen Titel in der ListBox anklicke soll die dazugehörige Beschreibung in einr anderen ListBox angezeigt werden.
Delphi-Quellcode:
Procedure TForm1.UpdateList;
Var
Movies1: IXMLDOMNodeList;
subNode1: IXMLDOMNode;
i: Integer;
begin
movies1:=xmlDoc.DocumentElement.selectNodes('Film');
ListBoxTitel.Items.Clear;
ListBoxTitel.Items.BeginUpdate;
For i:=0 to movies1.length -1 do
begin
subnode1:=movies1[i].selectSingleNode('Titel');
ListBoxTitel.Items[i]:=SubNode1.text;
end;
ListBoxTitel.Items.EndUpdate;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
UpdateList;
end;
procedure TForm1.ListBoxTitelClick(Sender: TObject);
Var
Movies2: IXMLDOMNodeList;
subNode2: IXMLDOMNode;
i:Integer;
begin
movies2:=xmlDoc.DocumentElement.selectNodes('Beschreibung');
ListBoxBeschreibung.Items.Clear;
ListBoxBeschreibung.Items.BeginUpdate;
For i:=0 to movies2.length -1 do
begin
subnode2:=movies2[i].selectSingleNode('Beschreibung');
ListBoxBeschreibung.Items[i]:=SubNode2.text;
end;
ListBoxBeschreibung.Items.Endupdate;
end;
Bis jetzt sollten, bei klick auf einen Titel, ALLE Beschreibungen angezeigt werden. Aber es tut sich nichts.
Hat jemand eine Idee, wie ich....
1. ...die Beschreibungen erstmal anzeigen lassen kann und...
2. ...dann die zum titel gehörende Beschreibung anzeigen lassen kann?
Da ich bis gestern mit dem Wort "
XML" nichts anfangen konnte, bin ich ja schon froh soweit gekommen zu sein.