komischer Bug in QuickReport

[freakTAB]

Ich arbeite in letzter Zeit ja recht viel mit der Quickreportkomponente und wollte nun eine Monatstabelle in ein Subdetailband eintragen (das sind also maximal 31 Zeilen), das ganze läuft ohne Datenbank dahinter ab, also hole ich mir jeden Tag ( = Zeile ) aus einem Array über OnNeedData vom Subdetailband. Um zu wissen wann Schluss ist zähle ich bei jeden Aufruf eine Variable hoch wenn diese grösser wird als der "grösste" Tag im monat setze ich MoreData auf FALSE.
Nun kommts aber : ich kriege plötzlich immer eine Access Violation auf 000000! Dies passiert übrigens nicht wenn ich nur 5 Tage ausgeben lasse :shock: .

Wodran liegt's?? Hat einer ne Idee was den Fehler verursacht?? Ich bin am ende mit meinem Latein.

[X-Dragon]

Kannst du den Code mal posten? Das erleichert etwas die Fehlersuche.

Wo genau tritt denn die Zugriffsverletzung auf?

[freakTAB]

Delphi-Quellcode:

var  IdxList:TStrings;
     i,y:integer;

procedure TQRep_MB.QRep_MBBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  IdxList := GetStr(T_Monat,'Daten',0);
  i := -1;
end;

procedure TQRep_MB.QRep_MBNeedData(Sender: TObject; var MoreData: Boolean);
begin
  i := i+1;
  if i < IdxList.Count then
  begin
    LadeLieferant(StrToInt(IdxList.Strings[i]));
    LadeMonat(StrToInt(IdxList.Strings[i]));
    y := 0;

    QRL_LiefNr.Caption := Lieferant.L_Nr;
    QRL_LiefName.Caption := Lieferant.L_Name;
    MoreData := TRUE;
  end
  else MoreData := FALSE;
end;

procedure TQRep_MB.QRSubDetail1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  y:= y+1;
  if y < 31 then
    begin
       QRL_Tag.Caption := '1';
       MoreData := TRUE;
    end
  else MoreData := FALSE;

end;

Er bricht komischerweise erst ab wenn er die Eventhandler normal durchlaufen hat, zeigt aber kein Blatt Papier an :(

EDIT : Der Code ist schon n Testcode,es werden keine Daten aus dem Array ausgelesen und so, er soll nur bis 30 hochzählen.

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]