在使用Delphi中的TClientSocket和TServerSocket进行通信编程时，当使用TClientSocket这方的客户端使用TClientSocket.close断开连接并退出程序时，使用TServerSocket这方的服务端有时会报‘’Asynchronous socket error 10053‘这个错误，查阅了这个错误说明：Software caused connection abort.（因软件原因导致连接终止）。这个原因说明很鸡肋，因为你还是无法确定到底是哪个地方出现了问题。实际上出现这个错误很大的原因是没有客...
123456789101112131415161718192021uses superobject; procedure TForm1.FormCreate(Sender: TObject);var aJson: ISuperObject;aSuperArray: TSuperArray; i:Integer;begin {1、赋初值} aJson:=SO(‘{"zoo":"涂磊动物园","animals":[{"name":"猴子","year":"12"},{"name":"老虎","year":"132"}]}‘); {2、读值前，一定要先判断是否存在} if aJson[‘animals‘]<> nil then showmessage( aJson[‘animals‘].As...
delphi fastMM 使用方法简介 在 http://sourceforge.net/projects/fastmm 中可以下载到最新 stable 的 FastMM，当前推荐的是 4.62，主要特点包括：1、彻底实现了 Borland 的内存管理器，可以完全取代现有的内存管理器（“取代”就是第一个 uses FastMM4，that is all ...）2、实现了内存管理器共享机制，Exe 和 Dll 间共享内存管理器不需要任何 Dll 支持3、集成了内存泄漏检测功能4、充分兼容现有的代码、Delphi 旧内存管理器模式...
方法一：delphi中递归算法构建treeView过程：通过读取数据库中table1的数据，来构建一颗树。table1有两个字段：ID,preID，即当前结点标志和父结点标志。所以整个树的表示为父母表示法。本递归算法不难写，但是要注意：程序内部的变量都应使用局部变量！比如当Query是外部变量（函数外定义或者直接通过控件拖拽得来）时就会得到错误的结果。代码如下： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, ...
方法一：delphi中递归算法构建treeView过程：通过读取数据库中table1的数据，来构建一颗树。table1有两个字段：ID,preID，即当前结点标志和父结点标志。所以整个树的表示为父母表示法。本递归算法不难写，但是要注意：程序内部的变量都应使用局部变量！比如当Query是外部变量（函数外定义或者直接通过控件拖拽得来）时就会得到错误的结果。代码如下： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, ...
函数功能：当Str不满Len长度时，在Str前自动填充PadStr以补足长度,例子如下：Str：原字符串Len：补多长PadStr：用什么补齐，比如‘0’function PadString(Str: string; Len: Integer;
PadStr: Char): string;begin Result:= StringOfChar(PadStr, Len - Length(Str))
+ Str;end;原文：http://www.cnblogs.com/theonewu/p/3693274.html
Delphi 正则表达式之TPerlRegEx 类的属性与方法(4): Replace// Replacevar
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil); reg.RegEx := ‘ab‘;
reg.Replacement := ‘◆‘; reg.Subject := ‘ababab‘;
reg.ReplaceAll;
ShowMessage(reg.Subject); //返回: ◆◆◆ reg.Subject := ‘ababab‘;
//下面四行程序, 相当于 reg.ReplaceAll;
while reg.MatchAgain do
begin
reg.Replace;
end; Sh...
1.方法的重写Overriding和重载Overloading是Java多态性的不同表现。重写Overriding是父类与子类之间多态性的一种表现，重载Overloading是一个类中多态性的一种表现。如果在子类中定义某方法与其父类有相同的名称和参数，我们说该方法被重写 (Overriding)。子类的对象使用这个方法时，将调用子类中的定义，对它而言，父类中的定义如同被“屏蔽”了。如果在一个类中定义了多个同名的方法，它们或有不同的参数个数或有不同的参数类型，...
http://blog.csdn.net/lxdcyh/article/details/39868001.拖入TIdHTTP控件，HandleRedirect设为True，否则可能会出现HTTP 307错误。 2.主要的设置在Request里。2.1 userAgent应该改为Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; CIBA; MAXTHON 2.0)2.2 如果Accept-Encoding设为了gzip, deflate，那么需要再解码，所以如果没有必要的话Accept-Encoding应该设为空。2.3 Referer应...
1. 在窗体上放置4个控件: SQLConnection1,SimpleDataSet1,DataSource1,DBGrid(注意: 如果 出现"Operation not allowed on unidirectional dataset"错误提示原因如下:)。在网上查到一篇文章如下:错误描述：当使用dbExpress控件操作数据库时，用到sqlconnection1、sqlquery1、datasource1和dbgrid1。按顺序连接，当将dbgrid的DataSource属性设为datasource1控件时发生错误："Operation not allowed on unidirectional dataset"。错误...
procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);begin //首先将窗体的keypreview设为true //禁止按delete 删除键 if Key=46 then begin //ShowMessage(‘ok‘); Key=0; end; //首先将窗体的keypreview设为true //禁止按backspace 返回退格键，这里如果Edit内容为数字则这个方法不好用，有待研究 if key=8 then ...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TMyCacl = class(TObject) public { Public declarations } function DynamicFun(funName: string; const a, b: integer): integer; published function add(const a, b: integer): integer; function dec(const a, b: integer): integer; end; TNewMyCacl = class(TMyCacl) ...
我今天把一个原来是Delphi2007的工程升级到了Delphi XE2，在编译ralease版本时候，发现无法添加UAC，我觉得可能是升级的原因，随后我用XE2新建了一个工程，但是在编译ralease版本时候，发现仍然无法添加UAC，但是debug版本可以加入UAC。通过多次尝试依然无法解决，最后我把工程所在目录名称修改了一下，这下子可以添加UAC了，无论哪个版本都可以添加UAC了。不知道什么原因，反正这样就可以了，如果你遇到类似问题，不妨修改一下工程...
隐藏你的.php文件 隐藏你的.php文件 今天做PHP在线手册镜像的时候看到了这个方法,哈哈,以前都没有注意到,所以说,手册是最好的老师 ------------------------------------------------------------------------------------- 如果不想让别人知道你的网站使用PHP程序以达到安全的目的.你可以按照下面的方法配置你的httpd.conf文件 但这并不说明PHP不安全. 你可以使用下面的方法来达到隐藏的目的: 1.将PHP隐藏为其它语言 在你的httpd...
方法一：delphi中递归算法构建treeView
过程：通过读取数据库中table1的数据，来构建一颗树。table1有两个字段：ID,preID，即当前结点标志和父结点标志。所以整个树的表示为父母表示法。本递归算法不难写，但是要注意：程序内部的变量都应使用局部变量！比如当Query是外部变量（函数外定义或者直接通过控件拖拽得来）时就会得到错误的结果。代码如下：
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Clas...
