摘要：
datasnap多层框架在客户端要生成调用远程方法的接口，一个可以鼠标右键点选sqlconnection控件，然后选“generate datasnap client...”，就会自动生成一个所有远程方法的接口单元，这种方法完全不需要我们自己来写代码，超级省事。但也有不好的地方，一个是首先sqlconnection必需要连接上中间件（设置好一些属性后，静态连接），二个是凡中间件有的远程方法一股脑都给你生成了（都让人给看见了）。下面的方法通过自己写代码来声明远程方法调用，避免了前面的两点不足，缺点当然是要自己写代码了。function TRemoteMethods.GetSearchSQLDat 阅读全文
摘要：
全局对象在什么时候创建也是有讲究的，如果在调用之前尚未创建肯定会报错。那么下面通过调用函数间接调用全局对象的方法就不会有任何问题了。var FUserInfo: TUserInfo = nil;function UserInfo: TUserInfo;begin if not Assigned(FUserInfo) then FUserInfo := TUserInfo.Create; Result := FUserInfo;end; 阅读全文
摘要：
指针的数据类型是整型，一个指针就是一个整型的数值。所以凡整型的变量（这个整型的变量可以是声明在INI文件中，也可以是声明在函数中的）也好，对象的整型的属性也好，都可以用来存储一个指针。但对象往往没有多余的整型属性，踏破铁鞋无觅处，得来全不费功夫，TAG属性就是整型的，可以用它来存放指针。 goods := TGoods.Create(Button); goods.goodsId := goodsId; goods.goodsName := goodsName; goods.price := price; Button.Tag := THandle(goods);TGoods(TcxBu... 阅读全文
摘要：
前提条件：先要安装好EXCEL软件。程序中经常要用到导入excel数据的功能。其实通过ole操作excel就简单的几行代码，但记性不好，经常要用经常要找，还是作篇笔记吧。var ExcelApp: OleVariant; WorkBook: OleVariant; RowCount: Integer; iRow: Integer;try ExcelApp := CreateOleObject('Excel.Application'); except SysFunObj.ShowInfo('没有安装EXCEL！'); exit; ... 阅读全文
摘要：
POS小票打印机分为热敏和针式俩种。打印纸的宽度分为58毫米、76毫米和80毫米三种。打印接口分为：串口、并口、USB和网口（以太网）。热敏打印机速度较快，打印的时候噪音少，针打可以使用多联纸自动复印。热敏打印机价格一般比较便宜，不需要频繁地更换色带。并口打印机，可直接"端口输出"，不需要安装打印机的驱动程序。几乎所有的POS小票打印机都可以兼容EPSON的ESC POS打印机指令。const // 末尾走纸几行 c_run_paper_lines = 6; // ESC指令 开钱箱 c_OpenMoneyBoxCommand = CHR(27) + CHR(112) + 阅读全文