Hallo,
gegeben eine D11.3 Anwendung.
Eine Klasse hat eine Report Drucken Methode, diese bekommt ein Interface übergeben
aus dem bestimmte Daten auf den Report gedruckt werden sollen.
Der Report wird mittels FastReports
VCL Embacadero Edition erzeugt.
Es gibt ein Ereignis, welches von FastReports aufgerufen wird um an die darzustellenden
Daten zu kommen:
Delphi-Quellcode:
procedure TReportPrinting.CreateReceipt(Data: IMyDataReadOnly);
begin
FData := Data;
// Rest ausgeblendet
end;
procedure TReportPrinting.OnGetValue(const VarName: string;
var Value: Variant);
begin
if CompareText(VarName, 'ReportDate') = 0 then
Value := DateToStr(FData.OrderDate) + ' - ' + TimeToStr(FData.OrderDate);
end;
Was kann dazu führen, dass FData im CreateReceipt noch brav zugewiesen ist und
dessen Count Methode dem Debugger z. B. 2 liefert, was in dem Testlauf korrekt war,
im OnGetValue aber nil ist? Alle Aufrufe die zwischendurch erfolgten hab' ich
durchgesteppt und da war FData immer zugewiesen und Count blieb 2.
Das OnGetValue wird von irgendwo innerhalb FastReports aufgerufen wenn ich
Report.PrepareReport(true); aufrufe. Das ist in der EMBT Edition natürlich eine
Blackbox.
Grüße
TurboMagic