AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Um Anzahl der Einträge zu zählen wo ListView1.Items.Count aufrufen?
Thema durchsuchen
Ansicht
Themen-Optionen

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

Ein Thema von OrNEC · begonnen am 26. Aug 2010 · letzter Beitrag vom 26. Aug 2010
 
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#9

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

  Alt 26. Aug 2010, 16:52
Moin,
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
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz