2 Proceduren vereinen

[guinnes]

Zitat von RWarnecke:

Der Unterschied zwischen Beitrag #1 und Beitrag #11 ist, dass er nur einmal die Funktion Druckbefehl pflegen muss.

Das ist mir schon klar. Aber, was ist im Beitrag 1 "Druckbefehl" ? Ein einfaches print ? Dann wäre eine eigene Methode eher überflüssig.

Zitat von m-werk:

Delphi-Quellcode:

procedure THaupt_Form.BtnPrintClick(Sender: TObject);
var rec : TRect;
begin
 //druckbefehl
end;

Delphi-Quellcode:

procedure THaupt_Form.Drucken1Click(Sender: TObject);
var rec : TRect;
begin
if PrintDialog1.Execute then
  begin
    //druckbefehl
  end;
end;