人民幣大寫(xiě)金額轉(zhuǎn)換程序(修正版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 結(jié)果將傳回人民幣金額大寫(xiě)字符串. 如果 CashAmount = 0 或數(shù)值溢出(超出萬(wàn)億位),結(jié)果返回空串. 2.說(shuō)明: -------- A.本轉(zhuǎn)換程序最大程度只支持到萬(wàn)億元(位)的金額數(shù)值轉(zhuǎn)換操作.如果你的 轉(zhuǎn)換數(shù)值超出此極限,你可以在調(diào)用前先行判斷數(shù)據(jù)的合法性,如果沒(méi)有作預(yù) 先判斷,轉(zhuǎn)換過(guò)程中將引發(fā)本單元中自帶的錯(cuò)誤處理例程. b.該轉(zhuǎn)換結(jié)果符合標(biāo)準(zhǔn)金額大寫(xiě)書(shū)寫(xiě)格式，零角零分等字樣不存在于最終的 轉(zhuǎn)換結(jié)果中. c.本轉(zhuǎn)換程序自帶數(shù)據(jù)溢出等數(shù)據(jù)非法及轉(zhuǎn)換錯(cuò)誤等處理例程. d.本程序適用于32位的Delphi版本.
標(biāo)簽： Cash_RMB dcu 轉(zhuǎn)換 程序
上傳時(shí)間： 2013-12-31
上傳用戶(hù)：hebmuljb
利用WM5 實(shí)現(xiàn)電話功能 在程序中進(jìn)行電話撥號(hào) “項(xiàng)目”—“添加引用”—“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
標(biāo)簽： Microsoft WindowsMobile Telephony Imports
上傳時(shí)間： 2013-12-20
上傳用戶(hù)：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
標(biāo)簽： interface Messages Graphics Controls
上傳時(shí)間： 2013-12-21
上傳用戶(hù)：heart520beat
這是一個(gè)學(xué)習(xí)WinSocket編程的程序，它由3部分組成，一是發(fā)送sender的程序，另一個(gè)是接收Receiver的程序，還有一個(gè)是信道channel。發(fā)送方發(fā)送的數(shù)據(jù)需要經(jīng)過(guò)信道才能夠被接收方接收到。這個(gè)信道是一個(gè)模擬信道，可以自由設(shè)置它成為可靠或者不可靠，在不可靠時(shí)又有幾種情況。這些都是為了能夠更好地去理解數(shù)據(jù)鏈路層的編程，對(duì)學(xué)習(xí)很有幫助。
上傳時(shí)間： 2013-12-25
上傳用戶(hù)：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
標(biāo)簽： interface Messages Graphics Controls
上傳時(shí)間： 2016-06-10
上傳用戶(hù)：gxmm
pashload是應(yīng)用在linux下的網(wǎng)絡(luò)帶寬測(cè)試源程序精確度比較高 ///////////////////////////////////// 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.
標(biāo)簽： pashload Pathload linux tool
上傳時(shí)間： 2016-06-29
上傳用戶(hù)：xzt
MD5變換動(dòng)態(tài)鏈接庫(kù)文件調(diào)用：（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
標(biāo)簽： delphi MD5 變換 動(dòng)態(tài)鏈接庫(kù)
上傳時(shí)間： 2016-07-04
上傳用戶(hù)：lijianyu172
udp-cast!可以用multicasting的方式把檔案?jìng)魉偷揭粋€(gè)群組，很好用~~~~!有興趣的人式式吧。 1.先make 2.會(huì)產(chǎn)生兩個(gè)兩進(jìn)位檔，sender用來(lái)擴(kuò)播檔案 詳細(xì)就man udp-cast吧
標(biāo)簽： multicasting udp-cast 方式
上傳時(shí)間： 2013-12-26
上傳用戶(hù)：13215175592
先運(yùn)行力控應(yīng)用程序（如演示工程——反應(yīng)釜），實(shí)時(shí)數(shù)據(jù)庫(kù)系統(tǒng)亦隨之啟動(dòng)。 然后啟動(dòng)delphi6.0，創(chuàng)建一個(gè)新的工程。 在form1窗體中，放置DdeClientConv控件（system標(biāo)簽頁(yè)），設(shè)置ConnectMode屬性值為ddeAutomatic、DdeService屬性值為db、DdeTopic屬性值為db； 接下來(lái)放置DdeClientItem控件（system標(biāo)簽頁(yè)），設(shè)置DdeConv為DdeClientConv1，設(shè)置DdeItem屬性值為所要讀取的數(shù)據(jù)庫(kù)點(diǎn)參數(shù)值如dbmixvol.pv； 放置一個(gè)edit控件； 放置一個(gè)timer控件，設(shè)置interval屬性值為100；在ontimer腳本中加入： procedure TForm1.Timer1Timer(sender: TObject) begin edit1.text:=form1.DdeClientItem1.Text end
標(biāo)簽： 運(yùn)行 力控 應(yīng)用程序 工程
上傳時(shí)間： 2014-01-22
上傳用戶(hù)：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) 接收數(shù)據(jù) 在編寫(xiě)基于串口的計(jì)算機(jī)工業(yè)測(cè)控時(shí)，通常需要由下位機(jī)向PC機(jī)發(fā)送數(shù)據(jù)以使PC機(jī)了解系統(tǒng)的測(cè)試數(shù)據(jù)或下位機(jī)的運(yùn)行狀態(tài)，并進(jìn)而控制下位機(jī)的行為。利用Spcomm串口控件接收下位機(jī)發(fā)送的數(shù)據(jù)信息的示例代碼如下： //事件驅(qū)動(dòng)方式接收數(shù)據(jù)程序 procedure TForm1.CommlReceiveData(sender:Tobject Buffer:Pointer bufferLength:Word) var receivedata:array of byte begin sleep(100) //等待100ms，保證接收到所有數(shù)據(jù) move(buffef ,receivedata,bufferlength) //將接收緩存區(qū)中的數(shù)據(jù)轉(zhuǎn)移到數(shù)組中 …… end (5) 關(guān)閉串口 在系統(tǒng)開(kāi)發(fā)中，應(yīng)注意在不使用串口時(shí)應(yīng)及時(shí)關(guān)閉串口，釋放系統(tǒng)資源，否則可能會(huì)影響系統(tǒng)的其它應(yīng)用。關(guān)閉串口的代碼如下： procedure TForm1.FormClose ( sender TObj ect:var Action:TCIoseAction ) begin comml.StopComm end
標(biāo)簽： commflg procedure senddata integer
上傳時(shí)間： 2014-01-26
上傳用戶(hù)：懶龍1988
蟲(chóng)蟲(chóng)下載站版權(quán)所有 京ICP備2021023401號(hào)-1
