人民幣大寫金額轉換程序(修正版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
