Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
Delphi 10.2 Tokyo Enterprise
|
AW: Fastreport PDF Erstellen stürtzt ab
3. Aug 2018, 14:45
Zitat:
Hier der Code an dem ich glaube das das Problem liegt.
Delphi-Quellcode:
with v2 do
begin
Left:= -(report.Pages[1] as TfrxReportPage).LeftMargin * fr01cm;
Top:= -(report.Pages[1] as TfrxReportPage).TopMargin * fr01cm;
Width:= (report.Pages[1] as TfrxReportPage).PaperWidth * fr01cm;
Height:= (report.Pages[1] as TfrxReportPage).PaperHeight * fr01cm;
end;
Left, Top, Width, Height... soll der Compiler die aus v2 oder der Form benutzen?  Das ist genau ein Beispiel warum man with wegläßt. 
Das script ist aus einer Unit und keine Form weit und breit
Frank Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
|