Procedure an eine Procedure übergeben

[Kroko1999]

(a) genug gegeigelt
(b)

Delphi-Quellcode:

type
  TMyProc = procedure (const X: Real);
var
  sign: Boolean;
procedure MyNewProc (const X: Real);
begin
  Sign := X<0;
end;

procedure MyCallProc (const AProc: TMyProc);
var
  Bx,By: Boolean;
begin
  AProc (1);
  Bx := Sign;
  AProc (-1);
  By := Sign;
  // usw. usw. usw.
end;