|
本帖最后由 hcz 于 2011-9-18 13:24 编辑
再次进行部分重构
现在支持传递对象的函数作为扩展函数了,如function TForm1.GetValue(s: string): Double;
使用Self.GetValue或Form1.GetValue这样的形式传递
是否使用对象内函数可通过开关{$DEFINE GC_ForObj}控制- Program Test;
- uses GLPCalc, Dialogs;
- begin
- ShowMessage(FloatToStr(evaluate('1+1',nil,nil)));//2
- ShowMessage(evastring('1+1=|1+1|!!!',nil,nil));//1+1=2!!!
- end.
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
x
|