[fpc-pascal] assigning a local function to a var

[Joao Morais]

David Emerson wrote:
>    var
>       // what should this be??
>       my_func : function (pass_str : ansistring) : boolean;

Declare a new type:

type
   tmy_func = function(pass_str: ansistring): boolean;

var
   my_func: tmy_func;

Joao Morais