2007年10月14日
开钱箱
摘要： procedure openMoneyBox(sPort: string = 'lpt1');var tf: textfile; begin try assignfile(tf, sPort); rewrite(tf); writeln(tf, chr(27) + chr(112) + chr(0) + chr(18) + chr(22)); finally closefile(tf); end; end; 阅读全文
posted @ 2007-10-14 21:52 delphi中间件 阅读(260) 评论(0) 推荐(0) 编辑
四舍五入
摘要： //四舍五入加强版，可指定到小数后几位function RoundPlus(Value: Extended;Length: Integer): Extended; procedure Set8087CW(NewCW: Word); asm MOV Default8087CW,AX FNCLEX FLDCW Default8087CW end;const RoundUpCW = $1B32;var OldCW : Word; s: string;begin if Length = 0 then s := '0' else s := '0.' + Repl(' 阅读全文
posted @ 2007-10-14 21:43 delphi中间件 阅读(265) 评论(0) 推荐(0) 编辑
磁卡YD-606读写
摘要： 记下在CSDN上的第一篇笔记{*******************************************************}{ }{ 陈新光 }{ }{ 版权所有 (C) 2007 咏南工作室 }{ }{*******************************************************}unit Unit1;in... 阅读全文
posted @ 2007-10-14 21:37 delphi中间件 阅读(268) 评论(0) 推荐(0) 编辑