搜索结果
找到约 8 项符合
TObject 的查询结果
Delphi/CppBuilder procedureTForm1.Button1Click(Sender:TObject) var S:String begin S:=idhttp1.Get(PostURL.text+
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 ...
Delphi控件源码 图形显示技巧,这是其中一段代码 procedure TForm1.Button1Click(Sender: TObject) var newbmp:TBitmap i,bmphei
图形显示技巧,这是其中一段代码
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 bmphei ...
Delphi/CppBuilder 人民币大写金额转换程序(修正版v0.0.3) =================================== 1.使用方法: ------------- 将Cash_RMB.dcu
人民币大写金额转换程序(修正版v0.0.3)
===================================
1.使用方法:
-------------
将Cash_RMB.dcu放入Delphi安装目录下的Lib中,在uses中加入Cash_RMB,
即可引用CashRMB方法.
function CashRMB(CashAmount: Double): String
如:
procedure TForm1.Button1Click(Sender: TObject)
begin
QRLabel ...
Delphi/CppBuilder unit Video interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, stdctrl
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: st ...
串口编程 unit comm interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, D
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: ...
Delphi控件源码 MD5变换动态链接库文件调用：（delphi例子） =======================================================================
MD5变换动态链接库文件调用：（delphi例子）
=========================================================================
function transfer(tran:widestring):widestring stdcall external md5.dll name transfer
//edit1为输入字符，edit2为输出md5摘要
procedure TForm1.Button1Click(Sender: TObject)
begin
e ...
医药行业 先运行力控应用程序（如演示工程——反应釜）
先运行力控应用程序（如演示工程——反应釜），实时数据库系统亦随之启动。
然后启动delphi6.0，创建一个新的工程。
在form1窗体中，放置DdeClientConv控件（system标签页），设置ConnectMode属性值为ddeAutomatic、DdeService属性值为db、DdeTopic属性值为db；
接下来放置DdeClientItem控件（s ...
嵌入式/单片机编程 procedure senddata var i:integer commflg : Boolean begin commflg:=true for i:=1
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机了解系 ...