.Net提供类的映射相信许多朋友都知道.现在几行代码在Delphi中也实现类似功能,当然有许多不完善之处有待改进.
1.首先创建一个类在Published中声明方法.并实现.
2.声明一Pointer指向@类名.MethodAddress('方法名')(注意是类名并不是实例名.因为类的方法在内存中只有一份)
3.调用,去掉了寄存器堆栈等的保护,关键代码就是
asm
mov ecx,你的参数(如有的话)
mov edx,你的参数
.......
call Pointer
end;