人民币大写金额转换程序(修正版v0.0.3) =================================== 1.使用方法: ------------- 将Cash_RMB.dcu放入Delphi安装目录下的Lib中,在uses中加入Cash_RMB, 即可引用CashRMB方法. function CashRMB(CashAmount: Double): String 如: procedure TForm1.Button1Click(sender: TObject) begin QRLabel1.Caption := CashRMB(Table1.FieldByName( 金额 ).AsFloat) end 结果将传回人民币金额大写字符串. 如果 CashAmount = 0 或数值溢出(超出万亿位),结果返回空串. 2.说明: -------- A.本转换程序最大程度只支持到万亿元(位)的金额数值转换操作.如果你的 转换数值超出此极限,你可以在调用前先行判断数据的合法性,如果没有作预 先判断,转换过程中将引发本单元中自带的错误处理例程. b.该转换结果符合标准金额大写书写格式，零角零分等字样不存在于最终的 转换结果中. c.本转换程序自带数据溢出等数据非法及转换错误等处理例程. d.本程序适用于32位的Delphi版本.
上传时间： 2013-12-31
上传用户：hebmuljb
利用WM5 实现电话功能 在程序中进行电话拨号 “项目”—“添加引用”—“Microsoft.WindowsMobile.Telephony”—“确定” Imports Microsoft.WindowsMobile.Telephony Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim TestPhone As New Phone TestPhone.Talk("1001") End Sub
标签： Microsoft WindowsMobile Telephony Imports
上传时间： 2013-12-20
上传用户：hasan2015
unit Video interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, stdctrls, ExtCtrls, avicap, mmsystem, dsgnintf // Types for event-procedures type TCapStatusProc = procedure(sender: TObject) of object TCapStatusCallback = procedure(sender: TObject nID: integer status: string) of object TVideoStream = procedure(sender: TObject lpVhdr: PVIDEOHDR) of object TAudioStream = procedure(sender: TObject lpWHdr: PWAVEHDR) of object // Property Editor for driver selection type TDrivereditor = class(TPropertyEditor) function GetAttributes: TPropertyAttributes override procedure GetValues(Proc: TGetStrProc) override function GetValue: string override procedure SetValue(const Value: string) override end
标签： interface Messages Graphics Controls
上传时间： 2013-12-21
上传用户：heart520beat
这是一个学习WinSocket编程的程序，它由3部分组成，一是发送sender的程序，另一个是接收Receiver的程序，还有一个是信道channel。发送方发送的数据需要经过信道才能够被接收方接收到。这个信道是一个模拟信道，可以自由设置它成为可靠或者不可靠，在不可靠时又有几种情况。这些都是为了能够更好地去理解数据链路层的编程，对学习很有帮助。
上传时间： 2013-12-25
上传用户：luopoguixiong
unit comm interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, SPComm, StdCtrls, ExtCtrls type TFcomm = class(TForm) Comm1: TComm GroupBox1: TGroupBox Memo1: TMemo Memo2: TMemo GroupBox2: TGroupBox Button1: TButton Btn_send: TButton Button2: TButton procedure Button1Click(sender: TObject) procedure Button2Click(sender: TObject) procedure Btn_sendClick(sender: TObject) procedure Comm1ReceiveData(sender: TObject Buffer: Pointer BufferLength: Word) private { Private declarations } public { Public declarations } end
标签： interface Messages Graphics Controls
上传时间： 2016-06-10
上传用户：gxmm
pashload是应用在linux下的网络带宽测试源程序精确度比较高 ///////////////////////////////////// Pathload is a tool for estimating the available bandwidth of an end-to-end path from a host S (sender) to a host R (receiver). The available bandwidth is the maximum IP-layer throughput that a flow can get in the path from S to R, without reducing the rate of the rest of the traffic in the path.
标签： pashload Pathload linux tool
上传时间： 2016-06-29
上传用户：xzt
MD5变换动态链接库文件调用：（delphi例子） ========================================================================= function transfer(tran:widestring):widestring stdcall external md5.dll name transfer //edit1为输入字符，edit2为输出md5摘要 procedure TForm1.Button1Click(sender: TObject) begin edit2.text:=transfer(edit1.Text) end
上传时间： 2016-07-04
上传用户：lijianyu172
udp-cast!可以用multicasting的方式把檔案傳送到一個群組，很好用~~~~!有興趣的人式式吧。 1.先make 2.會產生兩個兩進位檔，sender用來擴播檔案 詳細就man udp-cast吧
标签： multicasting udp-cast 方式
上传时间： 2013-12-26
上传用户：13215175592
先运行力控应用程序（如演示工程——反应釜），实时数据库系统亦随之启动。 然后启动delphi6.0，创建一个新的工程。 在form1窗体中，放置DdeClientConv控件（system标签页），设置ConnectMode属性值为ddeAutomatic、DdeService属性值为db、DdeTopic属性值为db； 接下来放置DdeClientItem控件（system标签页），设置DdeConv为DdeClientConv1，设置DdeItem属性值为所要读取的数据库点参数值如dbmixvol.pv； 放置一个edit控件； 放置一个timer控件，设置interval属性值为100；在ontimer脚本中加入： procedure TForm1.Timer1Timer(sender: TObject) begin edit1.text:=form1.DdeClientItem1.Text end
上传时间： 2014-01-22
上传用户：lwwhust
procedure senddata var i:integer commflg : Boolean begin commflg:=true for i:=1 to 8 do begin if not fcomm comml writecommdata(sendbutter,i) then begin Commflg=false break end end end (4) 接收数据 在编写基于串口的计算机工业测控时，通常需要由下位机向PC机发送数据以使PC机了解系统的测试数据或下位机的运行状态，并进而控制下位机的行为。利用Spcomm串口控件接收下位机发送的数据信息的示例代码如下： //事件驱动方式接收数据程序 procedure TForm1.CommlReceiveData(sender:Tobject Buffer:Pointer bufferLength:Word) var receivedata:array of byte begin sleep(100) //等待100ms，保证接收到所有数据 move(buffef ,receivedata,bufferlength) //将接收缓存区中的数据转移到数组中 …… end (5) 关闭串口 在系统开发中，应注意在不使用串口时应及时关闭串口，释放系统资源，否则可能会影响系统的其它应用。关闭串口的代码如下： procedure TForm1.FormClose ( sender TObj ect:var Action:TCIoseAction ) begin comml.StopComm end
标签： commflg procedure senddata integer
上传时间： 2014-01-26
上传用户：懒龙1988
