Procedural Types and Procedure Pointers

Top 

Example code : Procedural Types and Procedure Pointers

type

  TDisplayerProc = procedure(const s: string);

  TIntegerDisplayerFunc = function(const v: integer; dp: TDisplayerProc):

    boolean;

 

procedure Displayer(const s: string);

begin

  ShowMessage(s);

end;

 

function DisplayDoubleInteger(const v: integer; dp: TDisplayerProc): boolean;

var

  r: integer;

begin

  r := v + v;

  dp(IntToStr(r));

  result := r > 0;

end;

 

 

procedure TForm1.W3Button9Click(Sender: TObject);

var

  dp: TDisplayerProc;

  idf: TIntegerDisplayerFunc;

begin

  dp := Displayer;

  dp('hello');  //will "WriteLn('hello')"

  dp('delphi'); //will "WriteLn('delphi')"

  idf := DisplayDoubleInteger; //what will this do?

 

  if idf(-1, dp) then ShowMessage('true'else ShowMessage('false');

  if idf(12, dp) then ShowMessage('true'else ShowMessage('false');

end;

hello

delphi

-2

false

24

true

----------

 

In the above code section, the TDisplayerProc and TIntegerDisplayerFunc are procedural types .

Variables dp and idp are procedure pointers. Note that the DisplayDoubleInteger function takes a procedural type 

as its second parameter (TDisplayerProc).