TObject

注册系统热键

,SysUtils,Classes,Graphics,Controls,Forms,Dialogs;typeTForm1=class(TForm)procedureFormCreate(Sender:TObject
书搞进脑袋-创新-创造·2020-01-09 11:00

删除自己

Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)btn1:TButton;btn2:TButton;procedurebtn1Click(Sender:TObject
书搞进脑袋-创新-创造·2020-01-09 11:00

indy tcpclient tcpServer

procedureTForm1.FormCreate(Sender:TObject);beginIdTCPServer1.DefaultPort:=7200;IdTCPServer1.Active:=True
书搞进脑袋-创新-创造·2020-01-09 10:00

delphi 单例模式

(*单例模式适用于辅助类,一般伴随于单元的生命周期*)interfaceusesSysUtils;typeTSingleton=classpublicclassfunctionNewInstance:TObject
书搞进脑袋-创新-创造·2020-01-09 09:00

打开文本文件并读取内容

procedureTcform.N9Click(Sender:TObject);varF:TextFile;FileName:string;str:UnicodeString;beginFileName
itrojan·2020-01-03 23:47

Delphi CxGrid控件转Excel增加合计

footer为true第二步、设置需要合计的列以及属性设置第三步、单元引用cxGridExportLink使用其中的方法procedureTFrmYpcgJh.BtnExcelClick(Sender:TObject
小玄奘·2019-12-25 20:00

delphi 程序全屏显示无标题栏，覆盖整个屏幕

delphi程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，所以记下procedureTForm1.FormCreate(Sender:TObject);beginwithForm1dobegin
itrojan·2019-12-25 16:21

在PageControl中显示窗体

procedureTcform.SQL1Click(Sender:TObject);vartb:TcxTabSheet;beginifnotAssigned(sqlFormatForm)thensqlFormatForm
itrojan·2019-12-24 13:31

2018-11-27 字母的大小写转换

procedureTForm1.Button1Click(Sender:TObject);beginshowmessage(lowercase('A'));//显示为ashowmessage(Uppercase
netppp·2019-12-16 22:25

带有接口的json反序列化

InterfaceAdapterpublicfinalclassInterfaceAdapterimplementsJsonSerializer,JsonDeserializer{publicJsonElementserialize(Tobject
薛云龙·2019-10-31 13:28

Delphi - 操作Excel数据公式的实现

procedureTF_SMP_FT_NEW.RzBitBtn_StartToChangeClick(Sender:TObject);vari,j,ni,nj,iRows,iCol,iCol_flag:
Jeremy.Wu·2019-10-24 14:00

关于function类中定义变量this的简单说明

否则无法得到验证结果}vart=newTObject();//执行中,this代表talert("window1="+this.name1);//没有值alert("t="+t.name1);//有值TObject
·2019-09-25 05:57

Delphi实现木马自我拷贝方法

首先打开Delphi,新建一个工程,在窗口的Create事件中写入如下代码:procedureTForm1.FormCreate(Sender:TObject);varmyname:string;beginmyn
·2019-09-22 15:25

第2章 VCL的诞生和设计原理

VCLFramework的诞生VCLFramework的架构设计VCLFramework的对象服务ObjectPascal的对象模型和TObject虚拟方法（VirtualMethod）和动态方法（DynamicMethod
CPP二哥·2019-09-21 19:44

Java泛型

就像下面这样/***我需要通过反射来获取一个实体类的所有属性并给它属性赋值**Tobject是我需要封装的实体类*String[]data是赋给实体类每个属性对应的值*/publi
a_123gogo·2019-08-19 12:17

Delphi中的记录

1.限制控件只能输入数字及删除键procedureKeyPress(Sender:TObject;varKey:Char);beginifnot(Keyin['0'..'9',#8])then//限制只能
_lorzl_·2019-08-16 12:23

ObjectUtils 工具类

Object...values)检查元素是否为空,返回一个booleanclone(Tobj)拷贝一个对象并返回compare(Tc1,Tc2)比较两个对象,返回一个int值defaultIfNull(Tobject
July、·2019-07-12 11:51

OpenDialog文件多选

procedureTForm1.OpenFileListClick(Sender:TObject);varopenDialog:TOpenDialog;I:Integer;beginopenDialog
米卢的教练·2019-05-29 09:00

2019-04-23 delphi 自删除

Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject
netppp·2019-04-23 12:04

cJson解析数组

void__fastcallTForm4::Button7Click(TObject*Sender){char*jsonStr="{\"status\":0,\"result\":[{\"x\":121.72791811820493
chinayu2007·2019-04-20 19:34

详解java中的深拷贝和浅拷贝（clone()方法的重写、使用序列化实现真正的深拷贝）

1.序列化实现publicclassCloneUtils{@SuppressWarnings("unchecked")publicstaticTclone(Tobject){TcloneObj=null
changshuchao·2019-03-29 15:23

delphi ADOQuery查询更改用户

procedureTForm1.bt_deleteClick(Sender:TObject);beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add
kisssfish·2019-03-22 17:06

4. java中的深拷贝和浅拷贝（clone()方法的重写、使用序列化实现真正的深拷贝）

1.序列化实现publicclassCloneUtils{@SuppressWarnings("unchecked")publicstaticTclone(Tobject){TcloneObj=null
changshuchao·2019-03-11 19:25

{ 控件动态创建的堆与栈 }

1procedureForm1.TestClick(Sender:TObject);2var3TestBtn1,BtnTemp:TButton;4begin56{第一步：创建一个Button，令指针TestBtn1
谷谷非鼠·2019-03-10 21:00

Delphi按名字调用方法高级解决方案

按名字调用方法似乎一直以来都是大家比较关注的技术，在论坛上有一个经典的答复：typeTProcedure=procedure(Test:string)ofobject;procedureExecuteRoutine(Obj:TObject
_成飞·2019-03-06 09:00

dbgrideh 哪些行被选中了

SelectedRows:TBookmarkListprocedureTForm1.Button1Click(Sender:TObject);vari,j:Integer;s:string;beginifDBGrid1
磨叽开发者·2018-12-06 15:00

2018-11-26 char的宽字节问题

delphixeprocedureTForm3.Button1Click(Sender:TObject);vara:string;begina:='中国1';showmessage(inttostr(length
netppp·2018-11-27 14:44

cef4在新tab页打开新的网页获取url

procedureTJSRTTIExtensionFrm.Chromium1BeforePopup(Sender:TObject;constbrowser:ICefBrowser;constframe:
ozhy111·2018-09-05 20:16

Delphi 字符串转日期，强大到窒息，VarToDateTime 解决了 困扰很久的小问题

procedureTHRForm.Button1Click(Sender:TObject);varD:TDateTime;s:string;beginD:=VarToDateTime('05-10-1404
磨叽开发者·2018-08-14 16:00

DbGridEh根据某一个字段的值显示对应底色或字体变化

改变行底色：procedureTForm1.dggrideh1DrawColumnCell(Sender:TObject;constRect:TRect;DataCol:Integer;Column:TColumnEh
磨叽开发者·2018-07-31 09:00

由类名获取父类-delphi

procedureTForm1.Button1Click(Sender:TObject);varTName:Tclass;beginListBox1.Clear;RegisterClasses([TButton
AIIB69·2018-07-22 11:49

FastReport中如何实现自定义预览窗口关闭事件

,frxPreview,frxClass;typeTForm1=class(TForm)frxReport1:TfrxReport;procedurefrxReport1Preview(Sender:TObject
benwdm·2018-06-22 02:18

FastReport中如何实现自定义预览窗口关闭事件

,frxPreview,frxClass;typeTForm1=class(TForm)frxReport1:TfrxReport;procedurefrxReport1Preview(Sender:TObject
wdmsyf·2018-06-22 02:00

避免StringList将空格识别为分隔符

示例代码：procedureTForm1.btn1Click(Sender:TObject);vars:TStringList;begins:=TStringList.Create;//s.StrictDelimit
池龙·2018-03-25 11:53

C++Builder下如何解决IdFTP控件中文名乱码问题

一、获取文件列表void__fastcallTForm1::Button1Click(TObject*Sender){__int64fileSize;AnsiStringfile
【路在脚下】·2018-01-09 15:32

javaBean验证框架(9)—分组验证

组验证当启动验证过程时，我们可以通过Validator#validate(Tobject,Classgroups)指定验证组。
neweastsun·2017-11-28 23:46

Java泛型通配符T E K V 的区别，以及 class 与 class的区别

www.jianshu.com/p/95f349258afb1.泛型的目的是避免强制转换：//定义泛型BOXpublicclassBOX(){privateTobject;publicvoidset(Tobject
mrzhangzifu·2017-07-29 00:05

解决delphi客户端用TIDhttp POST 传参中文乱码问题

上代码：procedureTForm18.Button1Click(Sender:TObject);varuserName:String;userPwd:String;Url:String;Params
明月昏灯·2017-07-28 10:00

解决delphi客户端用TIDhttp POST 传参中文乱码问题

上代码：procedureTForm18.Button1Click(Sender:TObject);varuserName:String;userPwd:String;Url:String;Params
明月昏灯·2017-07-28 10:00

纯真IP数据库解析Delphi D10.1下正常使用

23interface45usesSystem.Classes,System.SysUtils,Winapi.WinSock,Vcl.Forms,6System.Math,System.SyncObjs;78type9TIPLocation=class(TObject
今心·2017-03-10 15:00

iOS多线程-GCD之dispatch_set_target_queue

上一篇iOS多线程-GCD之同步和异步一、释义dispatch_set_target_queue(dispatch_object_tobject,dispatch_queue_tqueue);dispatch_set_target_queue
Autolying·2017-02-28 21:47

简单的线路的界面的调用方法

  procedure  TMainForm.ActioonMakeMapByConditionExecute(Sender:TObject);begin      casepr  I_M_TVselect
huangyouliang10·2017-02-21 22:54

一段socket接收判断函数。保证能够接收完成

void__fastcallTServerConnect::TCPClientPort_ReadBuffer(TObject*Sender,TCustomWinSocket*Socket){intcount
cmlxiaogeaaa·2017-01-14 10:27

Java基础——Comparable和Comparator的区别

Comparator的区别包路径不相同：Comparable在java.lang下，Comparator在java.util下包含方法不同：Comparable只包含一个方法：intcompareTo(Tobject
宫爆鸡丁要加花生·2017-01-06 17:01

mormot json操作

procedureTForm1.Button1Click(Sender:TObject);varjo:Variant;i:Int64;beginTDocVariant.New(jo);;i:=0;whilei
咏南 delphi·2016-12-30 10:00

delphi数组作为参数传值

beginShowMessage(IntToHex(Integer(@a),2));ShowMessage(IntToStr(a[0]));end;procedureTForm1.btn1Click(Sender:TObject
一码当先·2016-11-24 16:00

Delphi 用文件流读取文本文件字符串的方法

procedureTForm23.Button4Click(Sender:TObject); var pstr:Pchar; mestr,Str1:string; FS:TFilestream;
向北方·2016-11-17 16:00

Delphi inline编译器优化问题

Result:=AtomicIncrement(__gr);//__gr是全局变量 ShowMessage('abc'); end; procedureTForm1.btn4Click(Sender:TObject
D10.天地弦·2016-09-14 11:00

delphi RGB与TColor的转换

byte):Tcolor;begin  Result:=BShl16orG  shl8orR;end; 2.Tcolor转换为RGB proceudreTform1.Button1Clink(Sender:Tobject
╰★张志峰★╮·2016-05-27 14:00

firemonkey打开子窗体

procedureTForm1.Button1Click(Sender:TObject);varChildForm:TForm2;beginChildForm:=TForm2.Create(nil);ChildForm.ShowModal
咏南 delphi·2016-05-23 09:00
上一页 5 6 7 8 9 10 11 12 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他