- 博客(13)
- 资源 (30)
- 收藏
- 关注
转载 FastMM的安装方法
1> FastMM是开源项目, 从 http://sourceforge.net/projects/fastmm 下载最新版2> 文件夹Replacement BorlndMM DLL/Precompiled/for Delphi IDE/Performance/BorlndMM.dll,替换掉Delphi/Bin下的相应文件就可以完成对IDE的提速3> Enviroment->Lib
2013-02-28 20:05:08 1986
原创 CreateThread多参数传递
Student = record Name: PChar; age: integer; end; pStudent=^Student;var h: THandle;procedure aa(cc: pStudent); stdcall;begin Form1.Memo1.Lines.Add(cc.Name); Form1.Memo1.Lines.Add(
2013-02-25 19:44:21 1744 1
转载 过程类型和函数类型
一:过程类型 ⒈什么是过程类型 把一个变量声明为过程类型,可以把一个过程或函数作为一个整体赋给这个变量或者把这个变量作为 参数传递给其它过程或函数。 声明一个过程类型的语法同声明一个过程或函数的首部语法相似,不同的是在保留字Procedure或fun- ction后不需要有过程或函数的标识符,例如: Type Proc1=Procedure
2013-02-23 23:02:07 933 1
转载 Owner和Parent的区别
Delphi中易混淆的概念一、Owner和Parent的区别: Parent属性是指构件的包容器,构件只能在此范围内显示和移动。举例子如下: (1)在Form1的窗体上,放一个Panel1,并将Panel1拉大, (2)在Panel1上放一Button1; (3)在Form1上放一Button2。 现在如果移动Panel1,则Butt
2013-02-23 20:10:55 803
原创 动态创建实例2 [无指针引用]
unit DynamicCreateControlsPas;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) Button1: T
2013-02-22 20:09:15 617 1
转载 倒计时对话框
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton;
2013-02-21 20:29:32 777
原创 GetSysInfoPath
function GetSysInfoPath(Flags:integer):string; var pitem: PITEMIDLIST; temp: array[0..MAX_PATH] of Char; // n: string;begin shGetSpecialFolderLocation(0, Flags, pitem); //uses Shlobj
2013-02-20 10:44:16 627
转载 Delphi中Create(nil),Create(self),Create(Application)区别
Create(nil);//需要自己释放 Create(Self);//当Self释放时自动触发释放Create(Application);//当Application释放时自动释放Create(nil);//这种方式创建的对象要自己手工进行FREE才会回收内存,其他很多内存泄漏就是忘了手工释放内存Create(Self);//由self对象负责释放创建的对象,只要self没有释放掉,
2013-02-19 14:52:09 5408
原创 可变类型开放数组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 result := Result + ' ' + Format('%d', a[i])
2013-02-18 11:43:48 687
原创 动态创建CheckBox Demo
varisNo:boolean;ChB: array[1..5] of Tcheckbox;procedure Tform1.checkonClick(sender: TObject);begin if (sender as TCheckBox).Checked then ShowMessage((sender as TCheckBox).Caption + ' 已选中');
2013-02-17 23:36:44 1207 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_MCK}, mirror, Classes, Controls, mckControls, mckOb
2013-02-16 13:38:17 906
转载 DELPHI的编译指令
1.DELPHI的编译指令格式:{$指令 满足指令的条件} 对于Delphi来说﹐左右大括号之间的内容是批注﹐然而「{$」(左括号后紧接着货币符号)对于Compiler(编译器)而言并不是批注﹐而是写给Compiler看的特别指示,就是编译指令。编译指令时给计算机看的,用于区别在不同的场合下进行编译不同代码的文件。1.协助除错 稳健熟练的程序设计师经常会在开
2013-02-16 11:02:24 628 1
原创 Close Rtti
{$IF CompilerVersion >= 21.0}{$WEAKLINKRTTI ON}{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}{$IFEND}
2013-02-14 14:24:49 455
TMS Component Pack 5.7.1.0 Full Source 安装版
2010-10-02
DELPHI全掌握(万一先生的博客)
2009-07-05
PASCAL精要(编程技巧)
2009-07-05
API函数的中文帮助文件
2009-07-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人