"Codice .. parla per me"
codice:
program test;
type
// un puntatore a funzione che non vuole argomenti e ritorna una stringa
TFunctionPtr = function : string;
// una struttura in cui memorizzo il nome e la sua funzione associate
TFRec = record
nome : string;
f : TFunctionPtr;
end;
// due funzioni
function f1 : string;
begin
f1 := 'sono la funzione 1';
end;
function f2 : string;
begin
f2 := 'sono la funzione 2';
end;
var
f : array [1 .. 2] of TFRec ;
i : integer;
begin
f[1].nome := 'uno';
f[1].f := @f1;
f[2].nome := 'due';
f[2].f := @f2;
for i := 1 to 2 do
begin
WriteLn(f[i].nome);
WriteLn(f[i].f);
end;
end.