TObject 第6页

delphi TMemoryStream 和TStringStream 转换

1procedureTFormTestRichText.btn1Click(Sender:TObject);2begin3//cxrchdt1.Lines.SaveToFile('d:\test.txt

aldsot0997·2020-08-11 16:44

delphi发送http请求示例（THttpCli组件示例）

//发送请求procedureTfrmMain.LocateExecute(Sender:TObject);varfFileInStream:TFileStream;fStreamIn:TStringStream

peirenlei·2020-08-11 15:55

Delphi线程类(三)

class(TForm)mmoMsg:TMemo;btnNewThread:TButton;btnShutdownAll:TButton;procedurebtnNewThreadClick(Sender:TObject

dechun15963·2020-08-11 11:26

Receive Windows Messages In NonWindowed Control

ViewCodeinterfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs;typeTMsgReceiver=class(TObject

dechun15963·2020-08-11 11:26

Delphi：与VCL同步（Synchronize()、用消息来同步）

……）先说一下RTL和VCLRTL（Run-Timelibrary），运行时库，包括System、SysUtils、Math三个单元，提供的函数与语言、编译器、操作系统及进程有关RTL提供类之间继承于TObject

weixin_30512043·2020-08-10 22:24

Delphi设置DBGrid每列自动居中

procedureTPatHomePage.FormCreate(Sender:TObject);vari,j:Integer;beginj:=dbgrd1.Columns.Co

终末之光·2020-08-10 20:08

简单到不能再简单的连接池

unitAdoconnectPool;interfaceusesClasses,Windows,SyncObjs,SysUtils,ADODB;typeTADOConnectionPool=class(TObject

hnxxcxg·2020-08-10 16:09

工控控件组iocomp的iplot控件的使用

procedureTFormMain.Timer1Timer(Sender:TObject);begininherited;iPlot1.Channel[0].TitleText:='白石监测点';iPlot1

hnxxcxg·2020-08-10 16:08

DELPHI写的循环队列

unitcirstream;interfaceusesWindows,Classes,SysUtils;typeTCircleMemStream=Class(TObject)privateFMemory

vincentchun·2020-08-10 13:58

Delphi IdHttp组件+IdHttpServer组件实现文件下载服务

usesidhttp,IdHTTPServer;//idhttp组件提交下载请求procedureTVodService.Button3Click(Sender:TObject);varh:TIdhttp

菜鸟营的战斗机·2020-08-10 04:58

两种登录界面验证写法

第1种思路：同时验证账号和密码是否对再判断，只判断一种情况即可；即都不对的时候提示；procedureTFLogin.btn1Click(Sender:TObject);//确认按钮beginwithfrmDataPool.qry

weixin_30847939·2020-08-10 02:27

Delphi 调用dll中的窗体

Graphics,Controls,Forms,Dialogs,StdCtrls;typeTDllForm=class(TForm)btn1:TButton;procedurebtn1Click(Sender:TObject

u010219209·2020-08-10 01:40

Delphi 代码创建控件与事件动态绑定

Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)proceduretest(Sender:TObject

u010219209·2020-08-10 01:40

image 控件加载bmp、JPG、GIF、PNG等图片的办法

procedureTForm1.Button1Click(Sender:TObject);varjpg:TJPEGImage;//要useJpeg单元png:tpngimage;gif:tgifimage

qq_43466604·2020-08-10 00:23

给Listview加上进度条

procedureTMainForm.FormShow(Sender:TObject);varI:Integer;ProBar:TGauge;Li:TListItem;beginforI:=0toDataListView.Items.Count

阳光小飞鱼·2020-08-09 21:09

delphi tyr except截获错误异常类名并替换例子

procedureTForm1.Button1Click(Sender:TObject);begin try adoquery1.Post; except //showmessage('有重复数值或者空白行或其它错误

皮卡·2020-08-09 20:48

不一样的登录窗口验证方式

登录窗口代码......procedurebtn1Click(Sender:TObject);private{Privatedeclarations}functionCheckUserAndPassword

aroc_lo·2020-08-09 19:01

Delphi 设置启动项

usesRegistry;procedureTForm1.Button1Click(Sender:TObject);constsKey_MACHINE:array[0..7]ofstring=('SOFTWARE

aTian2009·2020-08-09 19:01

WinAPI: GetKeyNameText - 根据键盘消息获取按键名称

,Variants,Classes,Graphics,Controls,Forms,Dialogs;typeTForm1=class(TForm)procedureFormCreate(Sender:TObject

weixin_34117522·2020-08-09 14:50

delphi 合并两个 Wav 文件流的函数

Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject

weixin_33699914·2020-08-09 14:34

delphi 剪贴板操作，读取剪贴板内容

//全局变量NextClipHwnd:HWND;//剪贴板观察链中下一个窗口句柄procedureTForm1.FormShow(Sender:TObject);begin//获得剪贴板观察链中下一个窗口句柄

李正己·2020-08-09 13:10

linux C线程池实现

typedefstructthreadpool_tthreadpool_t;创建线程池函数/***@functionthreadpool_create*@descCreatesathreadpool_tobject

wwxy261·2020-08-09 02:59

Delphi中基本控件之SaveDialog控件的使用总结

然后双击浏览按钮添加如下代码：procedureTfoffertool.btnbrowseClick(Sender:TObject);varfilePath:string;begindlgSave.Title

东北熊孩子·2020-08-08 21:13

Delphi中的TIdSMTP和TIdMessage控件的使用说明

TIdMessage，Button并依次命名为：idsmtp,idmessage,btnSend最后在发送按钮控件中添加如下代码：代码实现如下：procedureTForm1.btnSendClick(Sender:TObject

东北熊孩子·2020-08-08 21:13

线程池代码

THREADPOOL_H_typedefstructthreadpool_tthreadpool_t;/***@functionthreadpool_create*@descCreatesathreadpool_tobject

HicerWu·2020-08-08 11:03

Move window的两种方法

1、通过控件，适合局部区域移动procedureTForm1.Button1MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;

xiuzhentianting·2020-08-07 22:47

操作webbrowser页面输入框元素

操作webbrowser页面输入框元素加入单元mshtml演示表单提交procedureTForm1.Button1Click(Sender:TObject);varDoc:IHTMLDocument2

且行且知·2020-08-07 14:37

Delphi listview 让焦点始终在新输出的焦点上，并自动滚动

在listview的onchange事件中加入代码procedureTMainForm.lv_ULinfoChange(Sender:TObject;Item:TListItem;Change:TItemChange

n27583939·2020-08-05 21:07

判断机器是否网络状态

usesWinInet;procedureTForm1.Button1Click(Sender:TObject);functionGetOnlineStatus:Boolean;varConTypes:

longxin5·2020-08-05 01:10

简单获取钢琴 88 个键的音高频率值

procedureTForm1.Button1Click(Sender:TObject);vari:Integer;f:Double;beginf:=440/2/2/2/2;fori:=0to87dobeginMemo1

weixin_33722405·2020-08-04 20:13

使用dsofile读取文件摘要

procedureTForm1.Button1Click(Sender:TObject);

flyforlove·2020-08-03 16:32

浅谈Excel导入和后台处理

1.导入方法procedureTfrmSalarySmallPartsRecords.btnExcelToSQLClick(Sender:TObject);varcntI:Integer;sTmptbname

weixin_30469895·2020-08-03 06:18

mysql + unidac 使用事务例子

procedureTForm1.btn1Click(Sender:TObject);vari,j:Integer;beginUniConnection1.Connect;trytryUniTransaction1

yeeonefx·2020-08-02 19:45

在Delphi中使用事务

1、直接在delphi中使用事务procedureTForm1.Button1Click(Sender:TObject);beginADOConnection1.BeginTrans;Tryaq2.close

肉肉的RORO·2020-08-02 18:00

Delphi向可执行文件EXE尾部写数据然后读取

读取数据调用代码：procedureTForm1.FormCreate(Sender:TObject);vars:TExeStream;a:Char;k:Byte;begins:=TExeStream.Create

aroc_lo·2020-08-02 17:11

Delphi6函数大全（2）

功能返回系统语言对象说明通过此函数可以得到系统的语言环境参考typeSysUtils.TLanguages例子///////BeginLanguagesprocedureTForm1.Button1Click(Sender:TObject

lujar·2020-08-01 09:14

[转]delphi中获得数据库中所有表名和表字段

log_id=1309procedureTForm1.Button1Click(Sender:TObject);beginADOConnection1.GetTableNames(ComboBox1.Items

airhand·2020-07-31 15:39

DELPHI获取网卡MAC地址

ulmacaddrleng:pointer):DWord;StdCall;External'Iphlpapi.dll'Name'SendARP';procedureTForm1.Button1Click(Sender:TObject

躲不过这哀伤·2020-07-30 21:25

NativeXml (4)：认识根节点

constxmlFile='C:\Temp\xml_test_files\basic.xml';//测试文件varxml:TNativeXml;procedureTForm1.FormCreate(Sender:TObject

weixin_33751566·2020-07-30 17:07

Delphi XE6 学习笔记（9）手动填充ListView及ListBox

procedureTForm1.FormCreate(Sender:TObject);vari:integer;beginforI:=0to9dobegi

newsxy·2020-07-30 16:44

Delphi判断字符串是否包含限制以外的字符否则置空

判断字符串是否包含限制以外的字符否则置空procedureTMainForm.cbSearchExit(Sender:TObject);//判断退出事件varJ:Integer;K:String;beginK

豌豆豆-WQ·2020-07-30 09:04

C++Builder 截取图片

看网友们提问如何截取图片中的一部分，就查询帮助，写了一下：void__fastcallTForm1::Button2Click(TObject*Sender){inti_Width=600;inti_Height

周药师·2020-07-30 06:20

vcl组件精要

而在许多事件的参数中，Delphi使用了Sender:TObject参数，该参数缺省传递引发事件的对象。通过该参数，可以传递Delphi中的任意对象，这就为事件处理实现多态提供了保

zhezhelin·2020-07-29 03:32

Delphi case 语句使用

procedureTForm1.Button1Click(Sender:TObject);varnumber:integer;//定义变量numberbeginnumber:=strtoint(edit1

Xi4oh4o·2020-07-29 00:46

Delphi 中的自动释放策略

Owner后,随Owner连带释放://usesVcl.StdCtrls,Vcl.ExtCtrls;varpanel:TPanel;procedureTForm1.Button1Click(Sender:TObject

weixin_34004750·2020-07-28 18:45

Delphi 中的自动释放策略-转