Da sieht in der Tat nicht so aus, als ob es lange dauern könnte.
Du könntest aber dennoch ein wenig optimieren.
Wir haben doch keinen Platz
:
NeuerEintrag =>
Delphi-Quellcode:
with ListView.Items.Add do begin
Caption := 'xxxx';
Subitems.Add('xxxx');
end;
Warum denn jedesmal zählen?
xx.Caption := IntToStr(lv.Items.count);
=>
xx.Caption := IntToStr(i + 1);