David Emerson wrote:
Joao: creating a named type isn't a solution, as it only moves the problem of declaration into the "type" section, where the very same problem persists. Thanks for responding, though.

Did you test? I did and it works.

==========
function func_a(pass_str: ansistring): boolean;
begin
  writeln(pass_str, ' A');
  func_a := true;
end;

function func_b(pass_str: ansistring): boolean;
begin
  writeln(pass_str, ' B');
  func_b := false;
end;

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

var
  my_fnc: tmy_fnc;

begin
  my_fnc := @func_a;
  my_fnc('hello');
end.
==========

Joao Morais
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to