Vraag : van listview aan listbox

Hallo, heeft is

I de volgende procedure dat ik code-section.
that ontleed een xml-dossier en zette de gegevens in de kolommen van een listview.
But heb aangebracht nu ik een Listbox in plaats van een listview.

Who wil gebruiken ken het antwoord en bereid om me te helpen?

Peter
" codeBody " 
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 (Afzender: TObject);
var
  LoopNodes: IDOMNodeList;
  i: Geheel;
begin
  XMLDoc.FileName: = „. \ G1839366.XML“;
  XMLDoc.Active: = Waar;
  probeer
    LoopNodes: = XMLDoc.DOMDocument.getElementsByTagName („APPARAAT“);


    ListView1.Items.BeginUpdate;
    probeer
      voor I: = 0 aan LoopNodes.length -1
        met ListView1.Items.add beginnen
          Titel: = LoopNodes [I] .attributes.getNamedItem („Naam“) .nodeValue;
          SubItems.Add (LoopNodes [I] .attributes.getNamedItem („Sn“) .nodeValue);
        eind;
    tot slot
      ListView1.Items.EndUpdate;
    eind;

  tot slot
    XMLDoc.Active: = Vals;
  eind;
eind;

Antwoord : van listview aan listbox

Hier is de code;
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

VAN
ListView1.Items.BeginUpdate;
    probeer
      voor I: = 0 aan LoopNodes.length -1
        met ListView1.Items.add beginnen
          Titel: = LoopNodes [I] .attributes.getNamedItem („Naam“) .nodeValue;
          SubItems.Add (LoopNodes [I] .attributes.getNamedItem („Sn“) .nodeValue);
        eind;
    tot slot
      ListView1.Items.EndUpdate;
    eind;



AAN
voor I: = 0 aan LoopNodes.length -1
begin
listbox1.Items.Add (LoopNodes [I] .attributes.getNamedItem („Naam“) .nodeValue + '             '+  ^1 + LoopNodes [I] .attributes.getNamedItem („Sn“) .nodeValue);
eind;
Andere oplossingen  
 
programming4us programming4us