Delphi如何实现传递序数参数的功能?