说明: unit MyClass; interface uses Classes,SysUtils; type {$METHODINFO ON} TMyClass = class(TComponent) function Sum(const A, B: Double): Double; end; {$METHODINFO OFF} implementation uses Unit1; { TMyClass } function TMyClass.Sum(const A, B: Double): Dou
<yeeonefx> 上传 | 大小:454kb