QR ist einfach leer

[Garby]

Hallo Mada,

OnNeedData ist ein Ereignis vom Quickreport, d.h. es wird automatisch aufgerufen.
Ich würde es so machen:

Delphi-Quellcode:

type
  FrmForm1 = class(TForm)
    FrmForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean); 
  private
    { Private-Deklarationen }
    CurrentIndex: Integer;
    aTempArray: TDoubleArray;
  public
    { Public-Deklarationen }
    Arrayuebergabe(TempArray: TDoubleArray); 
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure FrmForm1.Arrayuebergabe(TempArray: TDoubleArray); 
begin 
  CurrentIndex := 0;
  aTempArray := TempArray;
  QuickRep1.Preview;
end;

procedure FrmForm1.QuickRep1NeedData(Sender: TObject; 
  var MoreData: Boolean); 
begin 
  if High(aTempArray) >= CurrentIndex do begin 
    MoreData := True; 

    QRLabel_Land.Caption := FloatToStr(TempArrayDruck[CurrentIndex,0]); 
    QRLabel_KM.Caption := FloatToStr(TempArrayDruck[CurrentIndex,1]); 

    Inc(CurrentIndex); 
  end; 
end; 

end.

Ich habs zwar nicht ausprobiert, sollte aber funktionieren