自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

转载 FastMM的安装方法

1>  FastMM是开源项目, 从 http://sourceforge.net/projects/fastmm 下载最新版 2>  文件夹Replacement BorlndMM DLL/Precompiled/for Delphi IDE/Performance/BorlndM...

2013-02-28 20:05:08

阅读数 1510

评论数 0

原创 CreateThread多参数传递

Student = record Name: PChar; age: integer; end; pStudent=^Student; var h: THandle; procedure aa(cc: pStudent); stdcall; begin Form1...

2013-02-25 19:44:21

阅读数 1165

评论数 1

转载 过程类型和函数类型

一:过程类型     ⒈什么是过程类型   把一个变量声明为过程类型,可以把一个过程或函数作为一个整体赋给这个变量或者把这个变量作为 参数传递给其它过程或函数。 声明一个过程类型的语法同声明一个过程或函数的首部语法相似,不同的是在保留字Procedure或fun- ction后不需要有...

2013-02-23 23:02:07

阅读数 538

评论数 1

转载 Owner和Parent的区别

Delphi中易混淆的概念 一、Owner和Parent的区别:    Parent属性是指构件的包容器,构件只能在此范围内显示和移动。举例子如下:    (1)在Form1的窗体上,放一个Panel1,并将Panel1拉大,    (2)在Panel1上放一Butto...

2013-02-23 20:10:55

阅读数 567

评论数 0

原创 动态创建实例2 [无指针引用]

unit DynamicCreateControlsPas; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Com...

2013-02-22 20:09:15

阅读数 514

评论数 1

转载 倒计时对话框

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls; t...

2013-02-21 20:29:32

阅读数 508

评论数 0

原创 GetSysInfoPath

function GetSysInfoPath(Flags:integer):string;      var   pitem: PITEMIDLIST;   temp: array[0..MAX_PATH] of Char;  // n: string; begin   shGetSpecial...

2013-02-20 10:44:16

阅读数 513

评论数 0

转载 Delphi中Create(nil),Create(self),Create(Application)区别

Create(nil);//需要自己释放    Create(Self);//当Self释放时自动触发释放 Create(Application);//当Application释放时自动释放 Create(nil);//这种方式创建的对象要自己手工进行FREE才会回收内存,其他很多内存泄漏就是忘了...

2013-02-19 14:52:09

阅读数 4472

评论数 0

原创 可变类型开放数组Demo

function myFunc(a: array of const): string; var i: integer; begin for i := Low(a) to High(a) do case a[i].VType of 0: begin ...

2013-02-18 11:43:48

阅读数 564

评论数 0

原创 动态创建CheckBox Demo

var isNo:boolean; ChB: array[1..5] of Tcheckbox; procedure Tform1.checkonClick(sender: TObject); begin if (sender as TCheckBox).Checked then Sh...

2013-02-17 23:36:44

阅读数 1077

评论数 1

转载 用KOL操作注册表(非DELPHI的registry)

{ KOL MCK } // Do not remove this line! {$DEFINE KOL_MCK} unit main; interface {$IFDEF KOL_MCK} uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_...

2013-02-16 13:38:17

阅读数 733

评论数 0

转载 DELPHI的编译指令

1.DELPHI的编译指令 格式:{$指令 满足指令的条件}   对于Delphi来说﹐左右大括号之间的内容是批注﹐然而「{$」(左括号后紧接着货币符号)对于Compiler(编译器)而言并不是批注﹐而是写给Compiler看的特别指示,就是编译指令。编译指令时给计算机看的,用于区别在...

2013-02-16 11:02:24

阅读数 506

评论数 1

原创 Close Rtti

{$IF CompilerVersion >= 21.0} {$WEAKLINKRTTI ON} {$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])} {$IFEND}

2013-02-14 14:24:49

阅读数 318

评论数 0

提示
确定要删除当前文章?
取消 删除