Funktion / Procedure eine Procedure übergeben?

[Christian Seehase]

Moin Christian,

meinst Du das so:

Delphi-Quellcode:

type
  TDisplay = procedure(const AsMessage : string);

implementation

{$R *.DFM}

procedure Display(const AsMessage : string);
begin
  ShowMessage(AsMessage);
end;

procedure DoDisplay(const ADisplay : TDisplay);
begin
  ADisplay('MELDUNG');
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
  DoDisplay(Display);
end;

?