Um Anzahl der Einträge zu zählen wo ListView1.Items.Count aufrufen?

[xZise]

Abgesehen davon, würde ich das als Methode einer Klasse anlegen. Man sollte nämlich verhindern auf Form1 o.ä. zuzugreifen.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  [...]
  private
    procedure ShowListCount();
  end;

[...]

procedure TForm1.ShowListCount();
begin
  if Form1.ListView1.Items.Count=0 then
    StatusBar1.Panels[0].Text:=('Keine Einträge')
  else if Form1.ListView1.Items.Count=1 then
    StatusBar1.Panels[0].Text:=('1 Eintrag')
  else
    StatusBar1.Panels[0].Text:=IntToStr(ListView1.Items.Count)+ ' Einträge';
end;

So kann sich der Name der Form ändern ohne Probleme und es gibt auch (nicht abwegige) Fälle bei der es dort auch Probleme geben wird.

MfG
Fabian