Einzelnen Beitrag anzeigen

citybreaker
(Gast)

n/a Beiträge
 
#1

Zeilen in verschiedenen Labels anzeigen

  Alt 23. Apr 2004, 11:49
Hallo,

ich habe eine Xml Datei und lasse einträge in eine ListBox anzeigen.

Delphi-Quellcode:
procedure UpdateList;
const
  Liste: Array[0..7] Of String = ('id', 'main', 'name', 'vorname', 'straße', 'hausnummer', 'postleitzahl', 'ort');
var
  rdfs: IXmlDomNodeList;
  id1: IXMLDomNode;
  main1: IXmlDomNode;
  I: integer;
begin
  MainFrm.ListBox1.Items.Clear;
  MainFrm.ListBox1.Items.BeginUpdate;

  rdfs := XmlDoc.documentelement.selectNodes('adblock');
  for i := 0 to rdfs.length -1 do begin
    id1 := rdfs.item[i].selectsingleNode(liste[0]);
    main1 := rdfs.item[i].selectsingleNode(liste[1]);
    MainFrm.ListBox1.Items.Add(id1.text + ' ' + main1.text);
  end;

  MainFrm.ListBox1.Items.EndUpdate;
end;
Jetzt steht in der ListBox

Name Vorname

Wenn dort draufgeklickt wird soll in Label1 der Name in Label2 der Vorname im nächsten
die Straße u.s.w stehen. Alerdings hab ich nicht so wirklick ahnung wie ich das umsetzten
soll. Und ist eine Xml Datei überhaupt für ein Adressbuch geeignet?

Die Xmldatei
Zitat:
<?xml version="1.0" encoding="ISO-8859-1"?>
<rdf>
<adblock>
<id>1</id>
<main></main>
<name></name>
<vorname></vorname>
<straße><straße>
<hausnummer></hausnummer>
<postleitzahl></postleitzahl>
<ort></ort>
</adblock>
</rdf>
  Mit Zitat antworten Zitat