摘要: CompareStr 区分大小写; CompareText 不区分大小写. 举例: var s1,s2: string; i: Integer; begin s1 := 'abc'; s2 := 'adc'; i := CompareStr(s1,s2); ShowMessage(IntToStr( 阅读全文
posted @ 2013-03-05 15:20 del88 阅读(322) 评论(0) 推荐(0)
摘要: 首先窗体类增加一个和这个事件 一样参数的函数 这个函数的实现代码如下: function TfrmFastPrint.MyMoneyToCnAddFrx(const MethodName: string; var Params: Variant): Variant;//这个函数的参数和要fr事件的参 阅读全文
posted @ 2013-03-05 13:49 del88 阅读(76) 评论(0) 推荐(0)