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

[OrNEC]

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;

[Muellermilchtrinker]

Wie wärs mit einem Timer???

Es gibt aber noch das Ereignis OnEdited und Editing.

Probiers halt mal aus, wobei ein Timer wahrscheinlich nicht so ressourcensparend ist. :stupid:

[mkinzler]

Ein Timer ist ne schlechte Idee.
Du hast schliesslich auch eine Klingel/Glocke an der Haustür und keinen Wecker der alle Minute klingelt und jemand dann vor die Tür muss um zu schauen, ob da jemand steht.

[OrNEC]

Zitat:

Zitat von Muellermilchtrinker (Beitrag 1045276)

Wie wärs mit einem Timer???

Es gibt aber noch das Ereignis OnEdited und Editing.

Probiers halt mal aus, wobei ein Timer wahrscheinlich nicht so ressourcensparend ist. :stupid:

Hab das inzwischen auch so gemacht, also mit dem Timer.

OnEdited und OnEditing eignen sich nicht, da ich aus der Form3 die die ListView befülle.

[DeddyH]

Ehrlich gesagt verstehe ich die Frage nicht. Die Einträge kommen ja nicht von den Heinzelmännchen in die ListView, sondern werden ja wohl programmatisch eingetragen. Das ist IMHO die richtige Stelle für die Anzeige.

[OrNEC]

Zitat:

Zitat von mkinzler (Beitrag 1045279)

Ein Timer ist ne schlechte Idee.
Du hast schliesslich auch eine Klingel/Glocke an der Haustür und keinen Wecker der alle Minute klingelt und jemand dann vor die Tür muss um zu schauen, ob da jemand steht.

Wo dann? Hab keine Idee. Bei Delphi 7PE hat man nicht so viele Ereignisse. :cry:

[Bernerbaer]

in dem Ereignis(Prozedur/Funktion), in welchem Einträge zur Stringliste hinzugefügt oder gelöscht werden

[mkinzler]

Du weist doch, wann du etwas hizufügst oder Löschst.

[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

[OrNEC]

Und wie rufe ich die procedure ShowListCount(); aus Form3?

[OrNEC]

Zitat:

Zitat von mkinzler (Beitrag 1045287)

Du weist doch, wann du etwas hizufügst oder Löschst.

Hab schon gemacht. :thumb:

[OrNEC]

Dieses Prog wird ein Open Source :thumb:

Ihr könnt es dann begutachten. :-D

[hoika]

Hallo,

Delphi-Quellcode:

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

und
in Form3

Delphi-Quellcode:

Form1.ShowListCount

Heiko

[OrNEC]

Genau, hab das schon so. Aber danke, weiß jetzt, dass es auch richtig so ist. :thumb:

Ich wollte die Procedure nur an einer Stelle aufrufen, da sonst ich es auf vielen machen muss. Beim Einfügen, Ändern, Löschen der Einträge usw.

[xZise]

Moin,

Zitat:

Zitat von OrNEC (Beitrag 1045290)

Und wie rufe ich die procedure ShowListCount(); aus Form3?

das geht dann auf verschiedenen Wegen. Zum Beispiel hoika bietet eine Lösung an. Die setzt allerdings voraus das die Form3, die Form1 kennt und auch sie nutzt Form1. Ersteres führt vermutlich zu einer zyklischen Einbindung und ich zumindest "hasse" sowas ;) auch wenn es einen "Workaround" gibt.

Eine andere Möglichkeit wäre:

Delphi-Quellcode:

type
  TEmptyEvent = procedure() of object; // Evtl. gibts das schon

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

  TForm3 = class(TForm)
  [...]
  private
    FShowListCount : TEmptyEvent;
  [...]
  public
    property OnShowListCount : TEmptyEvent read FShowListCount write FShowListCount;
  [...]
  end;

var
  [...]
  Form3 : TForm3;

[...]

procedure foo();
begin
  if Assigned(Form3) then
    Form3.Caption := 'Haha!';
end;

procedure TForm1.ShowForm3();
var
  f : TForm3;
begin
  f := TForm3.Create();
  try
    //foo; // siehe unten
    f.OnShowListCount := ShowListCount;
    f.Show; // oder modal
  finally
    f.Free;
  end;
end;

Das ist natürlich etwas komplizierter, aber hier muss die Unit der Form1 nur die Unit der Form3 kennen. So arbeiten übrigens auch die Ereignisse von den Komponenten (TButton.OnClick zum Beispiel). Ereignisse haben den großen Vorteil, dass die auslösende Klasse die andere Klasse nicht kennen muss.

Um das Ereignis auszulösen musst du nur folgendes Codesegment einfügen:

Delphi-Quellcode:

if Assigned(FShowListCount) then
  FShowListCount();

Die if-Abfrage verhindert, dass er versucht Ereignisse zu feuern die es nicht gibt. Du kannst übrigens alle ()-Blöcke löschen ;) Das kommt von Java/C#.

Außerdem kann ich damit verdeutlichen, warum man nicht Form3 oder sowas nehmen sollte (i.A. globale Variablen).
Wenn du jetzt nämlich den auskommentierten Befehl "foo" aufrufst, dann ändert er nicht (!) die Caption von der Form, die in f steht. Weil f != Form3 ist.

Wegen dein Kommentar: Du kannst die Methode auch weiterhin an mehreren Stellen aufrufen, und gerade dafür sind ja Methoden da.

MfG
Fabian

[rollstuhlfahrer]

Du kannst auch eine Wrapper-Prozedur basteln. Statt einen neuen Eintrag per Items.Add hinzuzufügen rufst du deine eigenen Funktionen auf, die das übernehmen. So kannst du auch immer an der richtigen Stelle die Anzahl der Werte anzeigen lassen. Also etwa so:

Delphi-Quellcode:

procedure TForm1.AddListBoxEntry(s: String);
begin
  ListBox1.Items.Add(s);
  ShowListCount();
end;

Bernhard