Delphi提供了类似于以下代码的“procedure of object”类型的“overload”重载方法吗?
TTesting = class(TObject)
Public
Type
TInformationEvent1 = procedure( x: integer ) of object; overload ;
TInformationEvent1 = procedure ( x: integer ; y: string) of object; overload ;
TInformationEvent1 = procedure ( x: integer ; y: string; z: Boolean) of object; overload ;
end
我可以用以下三种方式重载这个TInformationEvent1函数吗?