Frage : von listview zu listbox

Hallo, haben

I das folgende Verfahren, das ich in das code-section.
that analysiere eine Xmlakte und setze die Daten in die Spalten eines listview.
But eingesetzt, jetzt, das ich ein Listbox anstelle von einem listview.

Who verwenden möchte kenne die Antwort und bin bereit, mir zu helfen?

Peter 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.Button1Click (Absender: TObject);
var
  LoopNodes: IDOMNodeList;
  I: Ganze Zahl;
anfangen
  XMLDoc.FileName: = „. \ G1839366.XML“;
  XMLDoc.Active: = ausrichten;
  Versuch
    LoopNodes: = XMLDoc.DOMDocument.getElementsByTagName („VORRICHTUNG ");


    ListView1.Items.BeginUpdate;
    Versuch
      für i: = tun 0 zu LoopNodes.length -1
        mit ListView1.Items.add anfangen
          Untertitel: = LoopNodes [i] .attributes.getNamedItem („Name ").nodeValue;
          SubItems.Add (LoopNodes [i] .attributes.getNamedItem („SN ").nodeValue);
        Ende;
    schließlich
      ListView1.Items.EndUpdate;
    Ende;

  schließlich
    XMLDoc.Active: = falsch;
  Ende;
Ende;

Antwort : von listview zu listbox

Ist hier der Code;
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

VON
ListView1.Items.BeginUpdate;
    Versuch
      für i: = tun 0 zu LoopNodes.length -1
        mit ListView1.Items.add anfangen
          Untertitel: = LoopNodes [i] .attributes.getNamedItem („Name ").nodeValue;
          SubItems.Add (LoopNodes [i] .attributes.getNamedItem („SN ").nodeValue);
        Ende;
    schließlich
      ListView1.Items.EndUpdate;
    Ende;



ZU
für i: = tun 0 zu LoopNodes.length -1
anfangen
listbox1.Items.Add (LoopNodes [i] .attributes.getNamedItem („Name ").nodeValue + '             '+  ^1 + LoopNodes [i] .attributes.getNamedItem („SN ").nodeValue);
Ende;
Weitere Lösungen  
 
programming4us programming4us