Pytanie : od listview listbox

Cześć,

I mieć the następujący procedura który I stawiać w the code-section.
that parses xml-segregować i stawiać the dane w the kolumna listview.
But teraz I chcieć Listbox zamiast listview.

Who znać the odpowiedź i być teraz?

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 (Nadawca: TObject);
var
  LoopNodes: IDOMNodeList;
  i: Integer;
zaczynać
  XMLDoc.FileName: = ". \ G1839366.XML";
  XMLDoc.Active: = Prawdziwy;
  próba
    LoopNodes: = XMLDoc.DOMDocument.getElementsByTagName ("PRZYRZĄD ");


    ListView1.Items.BeginUpdate;
    próba
      dla i: = (0) LoopNodes.length -1
        z ListView1.Items.add zaczynać
          Podpis: = LoopNodes [i] .attributes.getNamedItem ("Imię ").nodeValue;
          SubItems.Add (LoopNodes [i] .attributes.getNamedItem ("SN ").nodeValue);
        końcówka;
    w końcu
      ListView1.Items.EndUpdate;
    końcówka;

  w końcu
    XMLDoc.Active: = Fałszywy;
  końcówka;
końcówka;

Odpowiedź : od listview listbox

Tutaj być the kod;
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

OD
ListView1.Items.BeginUpdate;
    próba
      dla i: = (0) LoopNodes.length -1
        z ListView1.Items.add zaczynać
          Podpis: = LoopNodes [i] .attributes.getNamedItem ("Imię ").nodeValue;
          SubItems.Add (LoopNodes [i] .attributes.getNamedItem ("SN ").nodeValue);
        końcówka;
    w końcu
      ListView1.Items.EndUpdate;
    końcówka;




dla i: = (0) LoopNodes.length -1
zaczynać
listbox1.Items.Add (LoopNodes [i] .attributes.getNamedItem ("Imię ").nodeValue + ''             +  ^1 + LoopNodes [i] .attributes.getNamedItem ("SN ").nodeValue);
końcówka;
Inne rozwiązania  
 
programming4us programming4us