Quickreport -> NeedData Problem

[Christian_1980]

Huhu @ all


Ich weiss: ihr seid alle clevere Jungs und könnt mir bestimmt helfen

Folgendes Problem: Ich habe einen Quickreport, der aus einer Liste von Objekten bestimmte Objekteigenschaften ausgeben soll. Dazu bediene ich mich im NeedData-Aufruf des Quickreports folgenden Codes:

Delphi-Quellcode:

procedure TqrBeipiel.qrBeispielNeedData(Sender: TObject;
  var MoreData: Boolean);

var JumpNextDataSet: Boolean;

begin

JumpNextDataSet := TRUE;

if (Counter < ObjektListe.Count) then
 begin
   While JumpNextDataSet do
     begin
         if (ObjektListe[Counter].gueltig)  
         begin
           JumpNextDataSet := FALSE;
           MoreData := TRUE
         end else begin
             Counter := Counter + 1;
             JumpNextDataSet := TRUE;
         end
     end;
  end;
end;

sowie:

Delphi-Quellcode:

procedure TqrBeipiel.QRDesignSummaryBandAfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin

  Counter := Counter + 1;

end;

so *hüstel*, jetzt zum eigentlichen Probelem: Ist das letzte Objekt in der Liste nicht gültig, so überschreitet der Index der Liste das Maximum (... mit anderen worten: der letzte Datensatz wird, sofern er nicht gültig ist ebenfalls übersprungen). Weiss jemand von euch wie ich das ausbügeln kann?

Vielen Dank schonmal,

Christian