Hallo,
ich hab folgende Procedure geschrieben um Einträge in einer ListView zu zählen. Ich weiß allerdings nicht so recht, und die Hilfe bringt mich auch nicht weiter, wo ich die Procedure immer aufrufen soll, um den Counter aktuell zu halten? Also in was für nem Ereignis? In "OnChange" und "OnChanging" klappt das nicht so gut, der Counter wird erst dann aktualisiert wenn man in der ListView was zusätzliches gemacht hat.
Danke!
Delphi-Quellcode:
//Anzahl der Einträge anzeigen
procedure ViewItemsCount;
begin
if Form1.ListView1.Items.Count=0 then
Form1.StatusBar1.Panels[0].Text:=('Keine Einträge')
else if Form1.ListView1.Items.Count=1 then
Form1.StatusBar1.Panels[0].Text:=('1 Eintrag')
else
Form1.StatusBar1.Panels[0].Text:=IntToStr(Form1.ListView1.Items.Count)+ ' Einträge';
end;