delphi中间件

摘要： //==============================================================================// if mark=0 then Tform.show else Tform.showmodal//==============================================================================procedure OpenChildForm(FormClass:TFormClass;var Form:TForm;Mark:Integer=0);begin if Mark=0 阅读全文

摘要： {*******************************************************}{ }{ 记录筛选 }{ }{ 版权所有 (C) 2007 咏南工作室（陈新光） }{ }{*******************************************************}unit uKingFilter;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, db;typ 阅读全文

摘要： {*******************************************************}{ }{ 通用线程类 }{ }{ 版权所有 (C) 2008 咏南工作室（陈新光） }{ }{*******************************************************}unit uThread;interfaceuses Clas... 阅读全文

摘要： 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; 阅读全文

摘要： //四舍五入加强版，可指定到小数后几位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(' 阅读全文

摘要： 记下在CSDN上的第一篇笔记{*******************************************************}{ }{ 陈新光 }{ }{ 版权所有 (C) 2007 咏南工作室 }{ }{*******************************************************}unit Unit1;in... 阅读全文