Prozedur dopelt nutzen

[Muetze1]

Moin!

Wie schon gesagt: mach es gleich in der Basisklasse:

Delphi-Quellcode:

procedure Tfrm.druckln (Const st : string; Abox : TStrings = Nil);
begin
  if AufDrucker then
    println (st);
  if AufBildschirm And Assigned(Abox) then
    Abox.Add (st);
end;

Der 2. Parameter ist so optional und wenn du ihn angibst, dann z.b. von einer ListBox nur noch das ListBox1.Items angeben, weil durch das TStrings kannst du dort auch einfach z.B. die Lines eines Memos oder sonstiges übergeben und bist nicht mehr so steif auf eine ListBox festgelegt...

MfG
Muetze1