Virtual TreeView

[celinaw]

Also in meinem Fall ist es dann so?!

Delphi-Quellcode:

    while not qrMain.Eof do 
  begin 
    lvAnzeige.Items.BeginUpdate;   
    ListItem := lvAnzeige.Items.Add; 
    ListItem.Caption:=qrMain.FieldByName('Order_Type').AsString; 
    ListItem.SubItems.Add(qrMain.FieldByName('Customer_Number').AsString); 
    ListItem.SubItems.Add(qrMain.FieldByName('Order_Number').AsString); 
    ListItem.SubItems.Add(FormatDateTime('dd.mm.yyyy     hh:mm:ss', qrMain.FieldByName('First_Event').AsDateTime)); 
    ListItem.SubItems.Add(qrMain.FieldByName('PrePrint').AsString); 
    ListItem.SubItems.Add(qrMain.FieldByName('Print').AsString); 
    ListItem.SubItems.Add(qrMain.FieldByName('BMSLogout').AsString); 
    ListItem.SubItems.Add(qrMain.FieldByName('CeWe_Batch').AsString); 
    gauge1.progress := gauge1.progress + 1; 
    qrMain.Next;
    lvAnzeige.Items.EndUpdate; 
  end;

Hab ich das richtig verstanden?