Hallo,

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

zusammenfalten · markieren

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

StatusBar.SimpleText := Format('%d Einträge',[ListView.Items.Count]); Oder habe ich was falsch verstanden?

Edit: wieder zu langsam; dann halt folgender Kommentar:

Wenn man die Begriffe ListView und Items doch schon zur Hand hat....

Oh...Danke! Ich hatte es so:
 StatusBar1.Panels[3].Text:=ListView1.Items.count; das hatte aber nicht funktioniert...da Str und Integer nicht zusammenpassen

Ich wusste nicht, wie ich es umwandeln kann...

Danke!

OMG! Grundlagen! Fragt doch nicht nach der Lösung eines Problems, wenn euch der Compiler schon sagt, dass es so nicht funktioniert!

Ja ich wusste wie gesagt, nicht wie ich es umwandeln soll! StrToInt geht da ja nicht...

Zitat von atgis:

StrToInt geht da ja nicht...

Natürlich nicht, aber IntToStr würde gehen

Zitat von atgis:

Ja ich wusste wie gesagt, nicht wie ich es umwandeln soll! StrToInt geht da ja nicht...

Nee, Du willst ja auch einen Integer-Wert einer String-Variablen zuweisen - und wenn Du schon StrToInt() kennst, warum probierst Du dann nicht auch mal IntToStr()?

Edit: Ich antworte nur noch, wenn DeddyH. net online ist

Zitat von s-off:

Edit: Ich antworte nur noch, wenn DeddyH. net online ist

Und ich nur noch, wenn mkinzler off ist

Zitat von DeddyH:

Zitat von s-off:

Edit: Ich antworte nur noch, wenn DeddyH. net online ist

Und ich nur noch, wenn mkinzler off ist

[OT]Ja, den vergas ich - aber bei dem kommt wenigstens immer noch der rote Kasten, so dass ich gar net erst abschicke, was bei Dri allerdings so gut wie nie der Fall ist [/OT]

Edit: schreibt man 'vergas' so? Uiuiui...