Delphi Create(Application) 和 Create(nil) 的区别: 例如: Form1:=TForm1.Create(Application); Form1:=TForm1.Create(nil): Create(Application)  :程序创建时会将对象添加到属主对象的组件(TComponent)列表中,当属主对象销毁时首先查看并销毁属主对象的从属对象,即当Application对象释放时会自动释放从属对象. 这里又要衍生一个概念及应用程序对象即Applicati…
https://wedelphi.com/t/135849/ 请详细些,并给出例子.谢谢. Application.CreateForm()创建的第一个可显示的窗体是自动成为主窗体,并且自动显示,并且在Project Options中窗体左列表中显示,如果有多个这样的窗体的话,这些窗体都会在程序运行时就自动创建,想用的时候可以不用Create的了,直接Show就行了,TForm.Create创建的窗体必须show一下才行,其它好象就没有什么分别, application.createform是创…
Create(nil);//需要自己释放 Create(Self);//当Self释放时自动触发释放 Create(Application);//当Application释放时自动释放 Create(nil);//这种方式创建的对象要自己手工进行FREE才会回收内存,其他很多内存泄漏就是忘了手工释放内存 Create(Self);//由self对象负责释放创建的对象,只要self没有释放掉,这个对象的内存就不会被释入掉,除程序员手工进行释放,他会触发很多事件.性能不是很好 Create(Appl…
最近的项目中经常在程序中动态创建控件,势必用到Create. 但是随之而来的问题就是动态创建的控件是否可以正确的释放内存? 以及 Create(nil), Create(self), Create(Application)的区别又是什么呢? Create(nil);//需要自己释放 Create(Self);//当Self释放时自动触发释放 Create(Application);//当Application释放时自动释放 Create(nil);//这种方式创建的对象要自己手工进行FREE才会…
Delphi 对象的创建(create)与释放(free/destory) 1.Create参数为:nil/self/application的区别,最好能看到实际效果的区别 例如: My := TMy.Create(X); 其中的 X 将会成为控件 My 的 Owner 属性, 可能会不只一个控件把 X 当作 Owner. 当 X 释放时, 它会同时释放那些把它当作 Owner 的所有控件. 譬如: btn1 := TButton.Create(Panel1); btn2 := TButton.…
Delphi中的Free和Nil 在Delphi中释放对象资源时一般用Obj.Free(Obj为一个实例名),不过程Delphi中还有一个FreeAndNil(对象名)函数,那么用哪个好呢?Free和Nil的本质又都是什么呢? 在Delphi中一个对象名只是一个指向该对象的指针,可以有多个指针指向同一个对象地址.Nil是将指针置空,而Free则将指针指向的对象销毁掉.如下所示: Obj.Free; //将Obj所指向的对象销毁. Obj:= nil; //将Obj指针置空.如果将上面的一句放在后…
概论第四版中增加了create schema (第三版好像没有这个内容),但是却没有提到create  database.相反目前在大多数DBMS中(如SQL Server2000.Mysql等)都有create  database语句用来新建数据库,而create schema 在SQL Server2000中确实也有但好像用处不大,不过也可能是我对SQL  server2000中的create schema理解的不对,看过它的联机帮助也看的不太明白.所以就不太明确create  schema…
  当将文件拖入工程中的时候会出现这个对话框,这个对话框中在Added folders中有两种选择:Create groups 和 Create folder references   这两种的区别是什么呢? 选择了第一种方式添加了一个文件,我们会发现被添加进来的文件,文件夹是黄色的 选择了第二种方式添加进来的文件的文件夹是蓝色的 第一种会被编译到工程中,第二种只是一种参考不参加变异…
Object.create()介绍 Object.create(null) 创建的对象是一个空对象,在该对象上没有继承 Object.prototype 原型链上的属性或者方法,例如:toString(), hasOwnProperty()等方法 Object.create()方法接受两个参数:Object.create(obj,propertiesObject) ; obj:一个对象,应该是新创建的对象的原型. propertiesObject:可选.该参数对象是一组属性与值,该对象的属性名称…
1.创建临时表空间 CREATE TEMPORARY TABLESPACE test_tempTEMPFILE 'C:\oracle\product\10.1.0\oradata\orcl\test_temp01.dbf'SIZE 32MAUTOEXTEND ONNEXT 32M MAXSIZE 2048MEXTENT MANAGEMENT LOCAL 2.创建用户表空间 CREATE TABLESPACE test_dataLOGGINGDATAFILE 'C:\ORACLE\PRODUCT\…
delphi中Application.MessageBox函数用法详解 Application.MessageBox是TApplication的成员函数,声明如下:functionTApplication.MessageBox(constText,Caption:PChar;Flags:Longint):Integer;引数:1.Text:要显示的信息2.Caption:信息窗口的标题文字3.Flags:窗体标志(说明是何种类型的信息窗体)3.1.可指定信息窗体上的图标 3.2.可指定信息窗体上…
kubectl create / replace 以ngnix 的 nginx.yaml为例: apiVersion: apps/v1 kind: Deployment metadata: name: nginx-deployment spec: selector: matchLabels: app: nginx replicas: 2 template: metadata: labels: app: nginx spec: containers: - name: nginx image: ng…
今天有两台服务器都出现了Can't create a new thread报错. [故障处理过程] 故障发生后登录服务器,检查mysql进程正常,但登录mysql报下面错误 ERROR 1135 (HY000): Can't create a new thread (errno 11); if you are not out of available memory, you can consult the manual for a possible OS-dependent bug. 重启mys…
  这个错误是空指针,但你怎么去找就是找不到为什么会空指针 这时,你要去检查Application 中是否有重写的方法例如这个 @Override protected void attachBaseContext(Context base) { // super.attachBaseContext(base); MultiDex.install(this); } 看到上面的注释了一行吗? 这就是问题所在,如果你注释了这一行就会报这个空指针的错误 一定要写完整 @Override protecte…
(文章为博主原创,未经允许,不得转载!) 今天在项目中搭建框架忽然发现工程中有黄蓝文件夹的区别,而且对应到不同的情况: 1.蓝色文件夹下文件不能被读取: 2.蓝色文件夹下创建新的文件类会直接跳过选择类型的步骤,直接出现一个file:(下图情况) 经过请教高手和自己的理解,现把解决方法和个中缘由总结如下: 一.搭建框架中为了使文件更加有逻辑性我使用的是在工程以外创建文件夹然后拖进工程的方法.在拖进工程的时候没有注意这个选项: 图中涉及三个点: 1.copy items if needed 2.ad…
DevExpress VCL套件是一套非常强大的界面控件,可惜关于Delphi开发方面的说明太少,有些控件使用起来一头雾水,不知从何下手.本节详细介绍在Delphi Xe10 Seattle中如何利用dxLayoutControl 控件来做界面布局. 1.  首先从工具箱面板中将dxLayoutControl放在Form上,设置2个关键属性如下: 属性 属性值 说明 Align alClient 一般都要设置为alClient,因为需要它控制整个Form布局 LayoutLookAndFeel…
文章作者:上帝的禁区信息来源:邪恶八进制信息安全团队(www.eviloctal.com)DELPHI木马DIY之生成服务端   我在这里就生成简单的服务端,为什么不先讲服务端的隐藏?因为我觉得生成服务端要好理解一点,简单一点,我们就由浅入深吧,OK,LET'S GO.   网络上其他的生成服务端的方式我不是很清楚,我就用我的方法来和大家讲解(不过还是先声明,我的方法亦是来自于网络,如果和谁的方法相同,请不要说我侵犯版权,因为我也不知道原作者是谁了,我这文章不作商业用途,如果有朋友认为我侵犯了他…
一.使用Create groups 我们在项目中可以手动添加一个groups(右键点击选择New Group),但是手动添加的groups实际上并不会存在于项目的目录中,被添加进groups中的文件仍在位于它原来所在的位置,但从外部引入进来的 groups并不会如此.groups一旦被创建或添加,都是以黄色文件夹的形式存在的,当你想要使用文件夹中的某个类的头文件时,你可以直接添加它的引用.因为groups下的cpp文件是会被编译的. 二.使用Create folder references方法只…
create database Studio; 这样就可以创建一个数据库了.他包涵一些什么呢? 可以看到它创建了一个文件夹,下面我们进去看一下它里面有一些什么东西. 还是先建一张表再进去吧,运行一下这个  create table Nums(X int not null); 内容分析: db.opt 文件. 复制到另一个地方,用计事本打开. 发现它保存的是字符集与排序规则信息. .frm 文件. 它保存整个表框架的定义,但是它保存的是密文. .idb文件. 它用来保存表中的数据.…
大家可能使用Navicat Premium时发现很方便,比如复制表或数据结构等,其实这种复制表数据或结构方法就是create table as 和create table like 这种方式实现细心的朋友会问,他们有啥区别呢?...废话不多说,直入正题:比如这里有张表数据t1: DROP TABLE IF EXISTS `t1`; CREATE TABLE `t1` ( `id` ) UNSIGNED NOT NULL AUTO_INCREMENT COMMENT 'ID,自增', `uid`…
1.索引查询 ------TABLE_SCHEMA  库名:TABLE  表名 ------AND UPPER(INDEX_NAME) != 'PRIMARY'  只查询索引,不需要主键 SELECTCONCAT('ALTER TABLE `',TABLE_NAME,'` ', 'ADD ', IF(NON_UNIQUE = 1, CASE UPPER(INDEX_TYPE) WHEN 'FULLTEXT' THEN 'FULLTEXT INDEX' WHEN 'SPATIAL' THEN 'S…
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) ScrollBox1: TScrollBox; Button1: TButton; proce…
对于MySQL的复制相同表结构方法,有create table as 和create table like 两种,区别是什么呢? create table t2 as select * from t1 where 1=2;或者 limit 0; as创建出来的t2表(新表)缺少t1表(源表)的索引信息,只有表结构相同,没有索引. create table t2 like t1 ; like 创建出来的新表包含源表的完整表结构和索引信息. 二者的用途:as用来创建相同表结构并复制源表数据.like…
a.create table like方式会完整地克隆表结构,但不会插入数据,需要单独使用insert into或load data方式加载数据 b.create table as  方式会部分克隆表结构,完整保留数据 c.create table as select .. where 1=0 会克隆部分表结构,但不克隆数据. d.如果启用了gtid,create table as方式不被支持. 收到ERROR 1786 (HY000): CREATE TABLE ... SELECT is f…
Delphi Win API函数 操作帮助文件 HtmlHelpA函数介绍 函数原型:HWND HtmlHelpA( HWND hwndCaller, LPCSTR pszFile, UINT uCommand, DWORD_PTR dwData ); Delphi 中引用:function HtmlHelpA (hwndcaller:Longint; lpHelpFile:string; wCommand:Longint;dwData:string): HWND;stdcall; extern…
Delphi 修改新建窗体时候的默认字体格式 操作步骤: 1.运行输入“regedit” 2.找到目录(这里默认以Delphi 7为例) HKEY_CURRENT_USER\Software\Borland\Delphi\7.0 3.新建项名为“FormDesign”的项,在下面新建一个字符串值:名称:DefaultFont 值为例如:微软雅黑,10 注意:这个FormDesign 不是原来的 Form Design,没有空格 图例以下:        创建时间:2019.12.19 来源:ht…
Delphi InputBox.InputQuery函数 两个函数都是弹框提示输入信息 function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;    // 输出布尔值 function InputBox(const ACaption, APrompt, ADefault: string): string;    // 输出文本 看一下 InputBox 的函数原型(调用了InputQuer…
KeyPress (Sender: TObject; var Key: Char);   当用户按下键盘上的字符键(字母,数字) 会触发该事件,功能键则不会(F1-F12,Ctrl,Alt,Shift) KeyUp (Sender: TObject; var Key: Word;Shift: TShiftState);    当按下键盘上的按键松开时,会触发OnKeyUp事件(任意一个按键都会触发) Keydown(Sender: TObject; var Key: Word;Shift: TS…
引用单元:SysUtils function ForceDirectories(Dir: string): Boolean;    //创建多级目录  父目录不必存在   (Force 有暴力.强制的意思) function CreateDir(const Dir: string): Boolean;   //创建一级目录  父目录必需存在 例如:D:\文档\计 算 机\我的delphi\我的制作 不存在的文件目录有 :计 算 机\我的delphi\我的制作 ForceDirectories 函…
以前控制Memo滚动到底部的操作: SendMessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0); 或者 Memo1.SelLength:=Length(Memo1.Text);   //移动光标 现在不需要这样,delphi xe 10 以上版本已经非常好用了: Memo1.GoToLineEnd; //滚动当前行到光标结尾 Memo1.GoToLineBegin; //滚动到当前行光标开始 Memo1.GoToTextEnd;      //滚动到文本结尾…