procedureTForm1.Button1Click(Sender:TObject) var S:String begin S:=idhttp1.Get(PostURL.text+ ?username= +EdUserName.Text+ &password= +EdPassWord.Text+ &password2= +EdPassWord.Text+ &email= + EdEMail.Text+ &gendernew=1&year=&month=&day=&locationnew =&site=&oicq=&icq=&yahoo=&msn=&bio=&styleidnew =&tppnew=0&pppnew=0&timeformatnew=12&cstatus=&dateformatnew =yyyy-mm-dd&showemail=1&newsletter=1&timeoffsetnew=8&avatar =&sig=®submit=注冊 ) //一句代碼 ifPos( 非常感謝您的注冊 ,s)>1then //判斷部分 ShowMessage( 注冊成功! ) else ifPos( 已經被注冊了 ,S)>1then ShowMessage( 該用戶名或E-Mail已被注冊! ) else ShowMessage( 已關閉注冊,注冊失敗! ) end
標簽： procedureTForm PostURL TObject Button
上傳時間： 2014-08-24
上傳用戶：努力努力再努力
圖形顯示技巧,這是其中一段代碼 procedure TForm1.Button1Click(Sender: TObject) var newbmp:TBitmap i,bmpheight,bmpwidth:integer //推拉 begin newbmp:=TBitmap.Create newbmp.Width:=image1.Width newbmp.Height:=image1.Height bmpheight:=image1.Height bmpwidth:=image1.Width for i:=0 to bmpheight do begin newbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),image1.Canvas,Rect(0,0,bmpwidth,i)) form1.Canvas.Draw(120,100,newbmp) end newbmp.free end
標簽： procedure TBitmap TObject Button
上傳時間： 2016-01-18
上傳用戶：comua
人民幣大寫金額轉換程序(修正版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
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
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
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
先運行力控應用程序（如演示工程——反應釜），實時數據庫系統亦隨之啟動。 然后啟動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
