Zitat von
pmoegenb:
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;
Aha, dann könnte ich z.B. alle Werte in eine StringList schreiben und dann jeweils im AfterPrint überprüfen, ob der Eintrag schon in der Liste ist.
Falls nicht, in die Liste einfügen und Anzahl2 erhöhen.
Richtig so?
Wie lese ich die Variablen dann mit QuickReport aus?