Question

delphi中的函数指针和Record的循环引用的问题

形如：
TFunction = procedure(ARec : TRec);

TRec = record
Text: string;
Func: TFunction; //函数指针
end;

函数指针声明和record的声明哪个放前面都不行，有什么向前引用的方法吗？多谢

Answer 1

PRec = ^TRec;

TFunction = procedure(ARec : PRec);

TRec = record
Text: string;
Func: TFunction; //函数指针
end;