Forum: Programmieren allgemein
by Sir Rufo,
16. Jul 2015
Da fällt es mir gerade wie Schuppen aus den Haaren, TPdfCanvas wird direkt von TObject abgeleitet (oder was auch immer), auf jeden Fall nicht von TCanvas ...
Also muss eine abstrakte Klasse her und je eine konkrete Ableitung für TCanvas und eine für TPdfCanvas. Dann schreibt man alles nur einmal ;)
Forum: Programmieren allgemein
by Sir Rufo,
16. Jul 2015
Vielleicht so?
procedure PrintOnCanvas(ACanvas: TCanvas);
begin
ACanvas.TextOut( 300, 700, 'Dies ist ein Test-Text');
end;
procedure PrintPdf;
begin
PrintOnCanvas( lPdf.Canvas );