QuickReport: Count-Funktion

[pmoegenb]

Zitat von Windwalker:

Du meinst wahrscheinlich, dass ich das im AfterPrint-Event machen soll.

Genau.

Beispiel:

Delphi-Quellcode:

private
    { Private-Deklarationen }
    Anzahl1, Anzahl2: Integer;

procedure TFrm.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
     Anzahl1 := 0;
     Anzahl2 := 0;
end;

procedure TFrm.QuickRep1AfterPrint(Sender: TObject);
begin
     Anzahl1 := Anzahl1+1;
     If Bedingung then Anzahl2 := Anzahl2+1;
end;