TObject 第5页

TStringList用法

TStringList*list=newTStringList();//将key和一个对象绑定,这个对象须继承自TObject类//TheInfo*pInfo=newTheInfo();//list->

chinayu2007·2020-08-20 09:32

csv文件的生成

procedureTForm5.Button2Click(Sender:TObject);varStream:TFileStream;i:Integer;OutLine:string;sTemp:string

最爱吃糖小狂魔·2020-08-19 21:32

delphi 里的二分法查找

procedureTForm1.Button3Click(Sender:TObject);vara:array[0..100]ofInteger;chazhao:Integer;l,h,m:Integer

lenovo455·2020-08-19 10:39

Delphi中IdTcpServer 用户掉线检测方法

这时服务器一直以为用户在线，解决这种问题有以下两种方法：一、轮训检测连接情况，需要Timer轮训检测，如下代码：Delphi代码procedureTMainForm.Timer1Timer(Sender:TObject

zch12311·2020-08-19 04:59

Delphi 按Esc快捷键退出程序的简单方法

第一种方法：在窗体上放一个按钮：1>、设置按钮的Cancel属性为True；2>、在按钮的点击事件中写：procedureTForm1.btn1Click(Sender:TObject);beginClose

爱在丽江leslex·2020-08-18 18:48

Delphi 读取CPU Id

在网上找了很久，终于找了一段能读出正确CPUID的代码，以下代码经过Delphi7测试procedureTForm1.Button1Click(Sender:TObject);var_eax,_ebx,

提前十分钟·2020-08-18 15:45

Result dubbo接口返回类型的设计

实现了分布式远程调用的框架，集成了spring配置功能，dubbo要求远程接口的参数和返回值都是可序列化的，Result泛型返回类型可作为接口的统一返回类型：intcode，接口调用成功=0，错误码=其他值Tobject

灯塔引路·2020-08-18 14:34

delphi如何给按钮添加单键快捷键（F1~F12)

123456procedureTForm1.FormKeyDown(Sender:TObject;varKey:Word;Shift:TShiftState);beginifKey=VK_F1thenself.Button5

疯流人物·2020-08-18 13:09

快速排序（一个数组先做偶数排序后做奇数排序）

DELPHI代码procedureTForm1.Button2Click(Sender:TObject);varA1:array[0..20]ofInteger;I:Integer;beginforI:

weixin_30938149·2020-08-18 09:01

DELPHI中MDI子窗口的关闭和打开

解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例：procedureChildForm.OnClose(Sender:TObject;varAction:TCloseAction);beginAction

踏雪无痕·2020-08-18 06:44

DELPHI动态创建窗体

1.引用TFORM2.2.在FORM1中使用如下代码创建//第一种方式procedureTForm1.btn1Click(Sender:TObject);beginWithTForm2.Create(Application

weixin_30362801·2020-08-18 04:03

有关串口的读取，以及串口配置文件的创建

1、读取串口个数并绑定到指定控件procedureTForm1.FormCreate(Sender:TObject);varcoms:TStringList;bands:string;index:integer

singular2611·2020-08-18 02:17

Delphi动态创建子窗口例子

Delphi动态创建子窗口例子procedureTForm1.mlskntlbr2ItemDown(Sender:TObject;constItemIndex:Integer);begincaseItemIndexof0

pdw2009·2020-08-17 18:54

把当前进程变为一个系统服务，从而在任务列表中把程序隐藏起来

DWord;stdcall;external’KERNEL32.DLL’;{把当前进程变为一个系统服务，从而在任务列表中把程序隐藏起来}procedureTForm1.Button1Click(Sender:TObject

weixin_34214500·2020-08-17 16:50

自定义过程的创建和使用（求一个数的阶乘）

valuevari:Integer;beginvarlue:=1;fori:=1toadovarlue:=varlue*i;end;procedureTForm1.Button1Click(Sender:TObject

weixin_30877227·2020-08-16 21:26

基于平面格式YUV422的图像缩放

void__fastcallTForm1::N3202401Click(TObject*Sender){FILE*fp;fp=fopen("E://±àÂëÏîÄ¿//YUVË«ÏßÐÔ±ä»»//320&

eva1988725·2020-08-16 19:28

delphi 列出DBGridEH被选中的值

//列出DBGridEH被选中的值procedureTForm1.N4Click(Sender:TObject);VarI:Integer;beginforI:=0toDBGridEh4.SelectedRows.Count

踏雪无痕·2020-08-16 16:19

delphi中TDBGrid的使用

procedureTMainForm.DBGrid1DrawColumnCell(Sender:TObject;constRect:TRect;DataCol:Integer;Column:TColumn

c_feers·2020-08-16 12:41

DBgrid 第一列加入CheckBox，点击列头全选/全消

列验证是否被选中然后dbgrid第一列的filedname是bit列在DBgrid的onDrawColumnCell事件中写：procedureDBGrid1DrawColumnCell(Sender:TObject

脚指头·2020-08-15 01:22

Delphi中如何控制打印方向，纸张大小等

-------------------------------------------UsesPrinter;.........procedureTForm1.Button1Click(Sender:TObject

xinzheng_wang·2020-08-15 01:59

delphi通过函数名动态调用函数的方法（方便功能的扩展）

interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTMyCacl=class(TObject

weixin_30748995·2020-08-15 00:25

Timage 旋转

wiShow:TWeaveImage;procedureTFBMPBrowser.N1Click(Sender:TObject);//水平翻轉beginwiShow.Picture.Bitmap.PixelFormat

badiu_30394251·2020-08-15 00:11

delphi中Tlist的使用。

procedureTForm1.Button1Click(Sender:TObject);const//黑桃,红桃,方块,草

云中雁012345·2020-08-15 00:13

Delphi的DateToStr StrToDate格式灵活用法

procedureTForm1.Button1Click(Sender:TObject);varADate:String;ADate2:TDate;AFormat,AFormat2:TFormatSettings

shixueli·2020-08-15 00:38

Delphi:RzPageControl(pagecontrol)实现多标签的动态添加,切换,关闭

来实现多标签页使用菜单来打开标签页,通过标签页的caption来判断将标签页是否已经被打开过了.1.创建标签页,并判断是否是已经打开过的页面procedureTFmain.Page1Click(Sender:TObject

sdudubing·2020-08-15 00:33

delphi部分函数

如果不带参数就是默认调用同名函数如果带参数则表明子类中的函数个数可能比祖先类要多取其中的几个参数传过去例如祖先类有个函数Create(AName:string);子类有个函数Create(AName:string;AComponent:TObject

天梦12138·2020-08-15 00:58

Delphi组件事件动态添加函数

1.定义procedureOpenTestForm，并实现：procedureOpenTestForm(Sender:TObject);impelmentationprocedureTMainForm.OpenCourseList

newweapon·2020-08-14 23:29

如何在Delphi中使用Microdraw图形控件的OLEVariant类型数据

如何在Delphi中使用Microdraw图形控件的OLEVariant类型数据示例如下：procedureTForm1.Button1Click(Sender:TObject);varobjid:oleVariant

赛志工作室·2020-08-14 23:44

Delphi屏幕绘图

以下代码在全屏幕中心绘制一个十字架:procedureTForm1.Button1Click(Sender:TObject);varFullscreenCanvas:TCanvas;DC:HDC;beginDC

jqandjq·2020-08-14 23:06

delphi StrToDateTime在win7或者控制面板中改过短日期格式出错

在XP系统中将区域语言选项中的短日期格式改成再使用StrToDateTime转换时间则处理会异常示例：procedureTForm1.btn2Click(Sender:TObject);vardateTimeStr

fang16388·2020-08-14 23:31

Delphi如何实现无边框窗体的移动

thenbeginReleaseCapture;Perform(WM_syscommand,$F012,0);end;如form1：procedureTForm1.FormMouseDown(Sender:TObject

dkopg24406·2020-08-14 23:25

【转载】Delphi中虚拟方法表和动态方法表

Delphi中所有类都直接或者间接派生于TObject,一个TObject的实例：Object（对象）实际上是一个4字节的指针。该指针指向对象的实际数据区（ObjectData）。

cuihao0532·2020-08-14 23:10

Delphi旋转文字

procedureTForm1.Button2Click(Sender:TObject);varlf:TLogFont;tf:TFont;beginwithForm1.CanvasdobeginFont.Name

xiuzhentianting·2020-08-14 22:30

delphi 显示数据

delphi显示数据标准动态显示数据procedureTForm1.Button2Click(Sender:TObject);vardatabasename:string;ip:string;beginadoconnection1

潇湘博客·2020-08-14 22:49

sybase 导出DDL语句以及ddlgen的描述

工具路径：%sybase%/ASEP/bin注：%sybase%为客户端安装目录语法：ddlgen-Uusername-Ppassword-Sserver–Ddbname–Tobject_type–Nobject_name-T

小宝老豆·2020-08-14 12:37

预防空指针的方法

publicstaticTvalidateNullPointer(Tobject){//FILE_LINE_FUNC()，获取validateNullPointer()调用点的文件名、行号、方法名信息if

z13759561330·2020-08-14 08:42

将 4 个 Byte 合成 1 个 Integer 的五种方法 - 回复 "三足乌" 的问题

//方法1:共用内存procedureTForm1.Button1Click(Sender:TObject);var bf:recordb1,b2,b3,b4:Byteend; i:Integerabsolutebf

caonumber·2020-08-14 04:56

BCB6主应用调用dll中的模块作为子窗口范例

直接上代码：主应用动态调用DLL的代码void__fastcallTForm1::Button1Click(TObject*Sender){if(NULL==DLLInst)DLLInst=LoadLibrary

云魂工作室-AKAI·2020-08-14 03:07

用DirectoryExists和FileExists判断指定路径下是否存在指定的文件夹或文件

procedureTForm1.btn_copyClick(Sender:TObject);varZkyStrAddDirectory:string;//定义一个字符串，可以用来放文件所在的地址ZkyStrAddFile

我欲混吃与等死·2020-08-14 00:17

WinAPI: Polyline - 绘制一组连续线段

数组元素个数}):BOOL;{Polyline与Polygon的参数一模一样,但Polygon能自动闭合}//绘制连续直线PolylineprocedureTForm1.FormPaint(Sender:TObject

weixin_34293246·2020-08-13 21:49

OfficeControl使用PDFCreator另存为PDF文件

procedureTForm3.btnSavePdfClick(Sender:TObject);begin{参数：名称必选/可选数据类型说明FileName必选string另存为PDF的文件名PromptSelect

335046781·2020-08-13 20:23

n个数取其中m个数的组合的遍历代码

m个循环就不好写了，循环的深度无法用变量，因此写了一个小循环来做Delphi的例子procedureTfrmCompose.btn1Click(Sender:TObject);varx:arrayofInteger

SS2000·2020-08-13 12:54

判断某个进程是否存在

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

wbryfl·2020-08-12 18:25

delphi控件使用

*举例，界面设计如下左，执行结果如下右：代码为procedureTForm1.Button1Click(Sender:TObject);beginedit1.Text:=listbox1.Items.CommaText

jsrgren·2020-08-12 17:55

delphi 多线程定时执行程序如何写

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

chinajobs·2020-08-12 16:55

WebBrowser不显示滚动条的方法

procedureTForm1.WebBrowser1DocumentComplete(Sender:TObject;constpDisp:IDispatch;varURL:OleVariant);beginWebBrowser1

fyl_077·2020-08-11 21:04

聚合关系和组合关系示例

按我理解，这两种合成方式在代码中的表现应如下：typeTOperate=class(TObject);TAnyObjects=class(TObject)publicconstructorCreate(

Oracle10g·2020-08-11 20:10

Direct2D (26) : 获取几何图形的边界

ID2D1Geometry.GetWidenedBounds();//获取包含画笔区域的边界矩形测试代码：usesDirect2D,D2D1;procedureTForm1.FormPaint(Sender:TObject

weixin_34085658·2020-08-11 19:34

Delphi与c++builder操作Ole的区别

使用TOleContainer加载个word文档，隐藏缺省的会显示菜单栏和工具栏1、c++builder方法void__fastcallTForm1::Button2Click(TObject*Sender

lcfeng1982·2020-08-11 17:54

delphi读取XML示例

procedureTfrmMain.btn1Click(Sender:TObject);varTextXML:IXMLDocument;XmlRoot:IXMLNode;NodePos:IXMLNode

iteye_19488·2020-08-11 16:09

推荐频道

TObject