Fast Report - Leerzeile einfügen bei fehlendem Datensatz

[dataspider]

Ich habe mal schnell in Fastreport einen Report mit Lückenanzeige gemacht (siehe Anhang).
Ist auch relativ wenig Arbeit, man muss nur:

zum MasterData ein Child machen...
Die Daten ins Child...
Die Lückentexte auf MasterData
Und im MasterData PrinChildIfInvisible auf True setzen.

Code:

Var
  LetzteNummer: Integer;                                             
  AnzahlLuecken: Integer;                                             
    
procedure frxReport1OnStartReport(Sender: TfrxComponent);
begin
  LetzteNummer := 0;                                      
end;

procedure LabelLueckeOnBeforePrint(Sender: TfrxComponent);
begin
  LabelLuecke.Text := InttoStr(AnzahlLuecken) + ' fehlende Nummern';                                                       
end;

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  AnzahlLuecken := <frxDBDataset1."Nummer"> - 1 - LetzteNummer;
  LetzteNummer := <frxDBDataset1."Nummer">;                                          
  BandData.Visible := False;                                    
  if AnzahlLuecken > 0 then
    BandData.Visible := True;  
end;

begin

end.

Ich verlagere zwar auch gern alles auf die Datenebene, aber das hier kann man durchaus im Report lösen.

Frank