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]

Originally Posted by Chinmoy

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.