quickreport aus DB

[Privateer3000]

Hallöchen,

mit folgenden source will ich aus einem adoquery drucken.
Dazu greife ich mit NeedData darauf zu.
Es wird jedoch nur der erste Datensatz gedruckt, allerdings
soviel mal wie die Ergebnismenge lautet.
Sind 3 Datensätze vorhanden, werden 3 Zeilen gedruckt, mit dem Inhalt des ersten Satzes:

Delphi-Quellcode:

procedure Tkbon.bonrepNeedData(Sender: TObject; var MoreData: Boolean);
begin
if ergz = 0 then
   bonrep.NewColumn;
    if haupt.liste.listmodus = False then begin
    spa1.caption := haupt.liste.tichq.fieldbyname('menge').asString;
    spa2.Caption := haupt.liste.tichq.fieldbyname('aname').asString;
    spa3.Caption := format('%f',[haupt.liste.tichq.fieldbyname('messung').asFloat]);
    haupt.liste.tichq.Next;
    moredata := ergz <= haupt.liste.tichq.RecordCount -1;
    end;
   end;
  inc(ergz);
end;

Nun doktore ich ergebnislos daran rum...
Kann jemand helfen?

[mkinzler]

Es scheint ein begin zu fehlen

Delphi-Quellcode:

if ergz = 0 then
begin
   bonrep.NewColumn;

[Privateer3000]

Danke! blind wie eine Natter...
allerdings springt der Datenzeiger jetzt
lediglich zum 2. Satz und hört dann auf.
Also irgenwas stimmt noch nicht.

[mkinzler]

Du hast auch keine Schleife

[Privateer3000]

nee also das wars nicht.
newcolumn soll ja nur ausgeführt werden wenn ergz = 0 ist,
dann nicht mehr.
Soweit wars korrekt.
Ich hab jetzt wieder auf ursprüngliche version zurückgestellt
Hab noch einen Satz hinzugefügt, immer das gleich
jetzt werden 4 Sätze gedruckt, immer der gleiche Inhalt...

[Privateer3000]

gedacht war es ja so:
mit next wird auf den nächsten Satz gezeigt,
moredata weist an noch mal zu gucken
bis ergz = recordcount ist.