Listview Items (Einträge) zählen

[atgis]

Hallo,

Wie kann ich die Items in einem Listview zählen und anschließend in einer Statusbar ausgeben?

Delphi-Quellcode:

//zum Öffnen
procedure TForm1.ReadDir(WorkingDir: String);
var  SearchRec : TSearchRec;

  procedure DoSomeThing(SearchRec : TSearchRec);
  var ListItem: TListItem;
  begin
   if SearchRec.size = 0 then
   //PC'S
   begin
    ListItem:= ListView1.Items.Add;
    if Dateiendunganzeigen1.Checked = true then
     ListItem.Caption:=searchrec.name
    else
     ListItem.Caption:=ChangeFileExt(searchrec.name, '');
     ListItem.ImageIndex:= 0;
   end
   else
   //leere Dateien
   begin
    ListItem:= ListView1.Items.Add;
    if Dateiendunganzeigen1.Checked = true then
     ListItem.Caption:=searchrec.name
    else
     ListItem.Caption:=ChangeFileExt(searchrec.name, '');
     ListItem.ImageIndex:= 1;
     ListItem.SubItems.Add(TimeToStr(now));
     ListItem.SubItems.Add(GetUsername);
   end;
  end;

begin
  if WorkingDir[length(WorkingDir)] <> '\' then
    WorkingDir := WorkingDir + '\';
  if findfirst(WorkingDir + '*.*', faanyfile, SearchRec) = 0 then
  repeat
    if (searchrec.name <> '.') and (searchrec.name <> '..') then
    begin
      StatusBar1.Panels[3].text := WorkingDir + searchrec.Name;
      if ((searchrec.attr and fadirectory) <> fadirectory) then
      begin

        if fileexists(WorkingDir + searchrec.name) then
        begin
          DoSomeThing(SearchRec);
        end else
        begin
          showmessage('Datei ' + WorkingDir + SearchRec.Name + ' konnte nicht gelesen werden');
        end;
      end else
        if cbRekursiv.Checked then
         ReadDir(WorkingDir + searchrec.name);
    end;
  until (findnext(searchrec) <> 0) or Application.Terminated;
  findclose(searchrec);
end;

So Lade ich TXT-Files in ein Listview...getrennt nach TXT's mit und ohne Inhalt.

Aber wo setze ich zum zählen an?


MfG