Kijk, elke keer een stapje (nou ja, STAP ) vooruit
Die 600.000x Application.ProcessMessages was natuurlijk ook niet echt nodig
Je kunt volstaan om elke 100 regels de progressbalk te updaten.
Gebruik daar dan overigens niet RootNodeCount voor (want die blijft denk ik gewoon 0 door die beginupdate) maar gebruik de interne counter (bijvoorbeeld die SLCounter counter voor de stringlist).
Delphi Code:
if SLCounter mod 100 = 0 then FormMain.UpdateStatusBarImported(SLCounter.ToString);
Wat was overigens de reden van het gebruik van de ListView? Was een TStringGrid niet veel makkelijker? Of heb je echt die node-informatie-record nodig? (omdat alles toch in de stringgrid stond leek me dat niet echt noodzakelijk)
De standaard TListView is ook vele vele vele malen langzamer dan een TStringGrid.
(Hoewel het kan zijn dat de TStringGrid wel weer langzamer is dan de VirtualListView)
Bookmarks