Problem jest taki.
Mam deklarację:
Type TProcedura = Procedure(A: B);
I funkcję z niej korzystającą:
Procedure Ustaw(Proc: TProcedura);
{...}
I teraz jak robię tak:
Procedure MojaProcedura(A: B);
Begin
End;
Procedure HelloWorld;
Begin
Ustaw(@MojaProcedura);
End;
To jest dobrze, natomiast tak:
Procedure HelloWorld;
Procedure MojaProcedura(A: B);
Begin
End;
Begin
Ustaw(@MojaProcedura);
End;
Już nie (czepia się tego, że MojaProcedura
jest procedurą zagnieżdżoną) :/
Da się jakoś zrobić, aby to działo w ten sposób czy jednak procedura MojaProcedura
nie może być zagnieżdżona?
FPC 2.6.0 jakby co