Virtual TreeView

[Sharky]

Zitat von celinaw:

Also in meinem Fall ist es dann so?!

Nein! Dann würdest Du ja doch nach jedem neuen Eintrag "updaten".

Delphi-Quellcode:

   lvAnzeige.Items.BeginUpdate;   // Bevor neue Einträge reinkommen
   while not qrMain.Eof do        // Jetzt kommen die Daten
   begin 
     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;
  end;                           // Alle Daten sind eingefügt
  lvAnzeige.Items.EndUpdate;     // NACH dem ALLE neuen Einträge eingefügt wurden.