function pointers

[porno.shome]

how to declare a function pointer in Delphi?
How to pass the same to a function, as one of the parameters?

Thanks in advance!

PS

[v0id]

Did you try Google?

[porno.shome]

did try that... but was not of much help!

[Chinmoy]

pointers in python! Rarely heared of that!

[v0id]

pointers in python! Rarely heared of that!

That's completely irrelevant for this thread. He's talking about Delphi and function pointers, so why are you talking about Python?

[Thor]

This is how to do it...
/Thor

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TFunctionPtr = function (P1: integer) : string;

function MyFunction(P1: integer): string;
begin
  result := IntToStr(P1);
end;

procedure Caller(Func: TFunctionPtr; Version: integer);
begin
  Writeln('My current Delphi version = ' + Func(Version));
end;

begin
  Caller(MyFunction, 10);
  Readln;
end.