Problem bei der Ausgabe mit Quickreport

[clock50]

Doch doch klappt schon nur es ist immer eine Position zu wenig, es fehlt die erste obwohl der ...[0] einen Wert hat.

[ConstantGardener]

Hast Du posz vorher richtig(0) initialisiert ?

[clock50]

wahrscheinlich bin ich zu blöde

Delphi-Quellcode:

procedure Tdrucken.RechnungRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
posz := 0;
end;

procedure Tdrucken.JvImgBtn3Click(Sender: TObject);
begin
posz := 0;
RechnungRep1.Preview;
end;

[ConstantGardener]

...hmm ich seh zumindest erstmal keinen Fehler. Evtl. mehr Code ?

cu cg

[clock50]

Es klärt sich alles wenn man mal darüber nachdenkt dann stellt man fest das man auch blind sein kann.

Delphi-Quellcode:

procedure Tdrucken.RechnungRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
 if length(unit6.positionen)-1 >= posz Then
 begin
 RPosAnz.Caption := unit6.positionen[posz].anzahl;
 RPosMwSt.Caption := unit6.positionen[posz].mwst;
 RPosText.Lines := unit6.positionen[posz].text;
 if unit1.inklmwst then
  begin
  RPosEP.Caption := FloatToStrF(strtofloat(unit6.positionen[posz].epreis)*((strtofloat(unit6.positionen[posz].mwst)+100)/100),ffCurrency,18,2);
  RPosSum.Caption := FloatToStrF(strtofloat(unit6.positionen[posz].anzahl)*(strtofloat(unit6.positionen[posz].epreis)*((strtofloat(unit6.positionen[posz].mwst)+100)/100)),ffCurrency,18,2);
  end else
  begin
  RPosEP.Caption := FloatToStrF(strtofloat(unit6.positionen[posz].epreis),ffCurrency,18,2);
  RPosSum.Caption := FloatToStrF(strtofloat(unit6.positionen[posz].anzahl)*(strtofloat(unit6.positionen[posz].epreis)),ffCurrency,18,2);
  end;
 end;
 inc(posz);
 MoreData := posz <= length(unit6.positionen);
end;