- 博客(30)
- 资源 (30)
- 收藏
- 关注
转载 Delphi数据库处理
第一节 BDE、ADO、InterBase和dbExpress Delphi中处理数据库主要有两种方法,也就是BDE、ADO,从Delphi 6.0开始还加入了一种dbExpress方法。 另外,Delphi还提供了专门处理Borland 公司自己的数据库产品Inter
2011-07-31 20:28:30 1838
转载 CreateMutex 防止程序多次运行
CreateMutex 防止程序多次运行 windows是个多用户多任务的操作系统,支持多个程序同时运行,如果你的程序不想让用户同时运行一个以上,那应该怎样做呢? 本文将介绍避免用户同时运行多个程序的例子。需要用到的函数CreateMutex ,CreateMutex 函
2011-07-31 12:38:05 1567
原创 内存比较函数 - CompareMem(文件、数组等比较)
所属单元:SysUtils函数功能:快速内存比较函数,可对两个文件比较、数组进行比较。据测试速度比一般算法要高60~110%。一、文件的比较你是否遇到过比较两个任意后缀名文件内容是否相同的问题?(TFileStream其他类可以方便的操作这些文件,但如果说
2011-07-30 19:33:06 5097
转载 创建DLL文件,封装窗体的实现方法实例
用DELPHI创建DLL文件,封装窗体的实现方法实例:即一个程序不再是单一的一个EXE文件了,而是由一个EXE文件加N个DLL文件组成,这样做的原因是方便以后的维护与更新,也是跨平台开发的重要一步。1, 打开DELPHI,新建一个Dll Wizard2, 在新建的Dl
2011-07-30 16:22:41 887
原创 exe也可以当Dll用
function abcd(x: integer): integer; stdcall; var Form1: TForm1; implementation function abcd(x: integer): Intege
2011-07-29 15:35:14 1221 2
转载 制作DLL
一、开使你的第一个DLL专案 1.File->Close all->File->New﹝DLL﹞代码: //自动产生Code如下 library Project2; //这有段废话 uses SysUtils, Classes; {$R *.RES}
2011-07-28 14:42:26 1317
原创 CreateProcess创建一个隐藏进程
delphi中使用CreateProcess创建一个隐藏进程FillChar(StartUpInfo, SizeOf(StartUpInfo), 00);StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;StartUpInfo.w
2011-07-27 14:57:03 9492
原创 inherited
一个方法有行为(一般是父类的),在你继承这个方法然后重写的时候,如果有inherited,那么,父类中这个行为执行,如果没有inherited,那么,这里只执行你写的程序,父类中的行为将被屏蔽掉。
2011-07-27 14:14:35 719
原创 单元文件结构
unit Unit1;interface {接口部分开始}uses {引用单元列表,这是可选的,如果包含必须紧跟interface关键字} {接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样} {在接口部分声明的过程和函数,就像使用了forw
2011-07-25 22:14:10 455
原创 delphi 类的大体概述
刚刚接触的Delphi的朋友,可能最感兴趣的就是它丰富、强大的VCL(可视化构件库)。仅仅向窗体上扔几个构件,甚至不用动手写代码,就能很容易地做出一个有实用价值的程序,真是令人激动。但是,VCL只是Delphi的一小部分,Delphi的优秀远远不只是表现在VCL上。如果你仅仅停留
2011-07-24 16:32:04 568
转载 Delphi程序结构
概要介绍:Object Pascal语言的结构比较特殊,跟C有很大的不同,但是它秉承PASCAL语言的一贯结构化的传统,相信大家很容易就可以了解。 一:Program 单元 一个object Pascal程序,是由一个特殊的单元和若干个可选的单元组成的,也就是说一个最简
2011-07-24 15:38:44 1007
转载 Delphi类型和引用
概要介绍:类类型和下面要讲到的类引用类型是一种特殊的数据类型,是Object Pascal面向对象编程的基础。 一:类类型概述 和以前介绍的几种数据类型相比,类类型具有如下特点: 类类型的成员可以是不同的数据类型,这一点跟记录类型相似,因此,类类型首先是由不同的字
2011-07-24 15:33:56 1913
转载 Delphi 事件
Delphi 事件 --事件原来是函数指针,同时是个属性总结一下在Delphi中如何使用Poperty这一语法特性。如果学习过C#的朋友应该会很容易理解,因为C#的属性就是学习自Delphi,毕竟C#和Delphi是同一个设计者。定义一个属性Property的基本格式如下:pro
2011-07-24 12:48:37 2250 1
转载 窗体自适应分辨率
unit untFixForm;interfaceuses Classes, SysUtils, Controls, Forms;type TFontedControl = class(TControl) public property F
2011-07-24 12:27:10 731
转载 Delphi 泛型
Delphi 泛型C++中的模板、C#等语言中泛型技术,给许多操作不同类型数据的软件人员提供了一个很好的方法。其类型的“可变”性,让许多用过的软件人员所心喜。但是在Delphi 2009以前的版本中,是从来没有的。让许多不会用Delphi中TList的人员,大大的抱怨。如果用好
2011-07-24 11:53:05 2045
原创 Tlist
type PmyList = ^RmyList; RmyList = record name: string; Age: integer; end;var AList: TList; PaList: PmyList; I
2011-07-22 21:20:14 463
转载 New,Getmem,ReallocMem联系与区别
New,Getmem,ReallocMem联系与区别procedure New(var P: Pointer); {为一个指针变量分配内存,会自动计算指针所指数据结构需要空的空间大小}procedure GetMem(var P: Pointer; Size: Integer
2011-07-22 12:52:27 846
原创 New 和 GetMem 的不同之处
New 和 GetMem 的不同之处如果操作一个 record 指针中的字符串变量,会不会丢失 string 的内 存空间,造成内存泄漏? 结果是:使用 New() 分配的内存,会自动初始化 record 的内容,并且在 Dispose 时自动 清除所
2011-07-22 12:46:21 2161 1
转载 Ty_GetDirInfo
function Ty_GetDirInfo(s_Dir:String;id:byte):string;var FSO,Folder,Drive:Variant;begin FSO:=CreateOLEObject('Scripting.FileSystemO
2011-07-21 00:20:37 739
原创 ByteToStr
function ByteToStr(const i64Size:Int64):string;const i64GB=1024*1024*1024; i64MB=1024*1024; i64KB=1024;begin if i64Size div
2011-07-20 23:59:29 1755
原创 整数<=>指针
var t,i:Integer; P: Pointer;begin i := 100; T := Cardinal(@i); P := Pointer(T); ShowMessage(IntToStr(Pinteger(P)^)); //转为整型指针再还原end;
2011-07-20 22:56:48 824 1
转载 ListView控件使用方法
ListView控件使用方法在工具箱上击鼠标右键,选择快捷菜单的Components(部件)项,在控件列表中选择Microsoft Windows Common Controls 5.0控件(Comctl32.ocx),这个控件中包括ListView、TreeView等几
2011-07-18 15:58:07 1972
转载 ListView控件的使用方法
ListView控件的使用方法 //增加 i := listview1.Items.Count; with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:= I
2011-07-18 15:48:45 2037 1
原创 function MD5File
function MD5File(FileName: string): string;var Md5: TIdHashMessageDigest5; //uses IdHashMessageDigest FS: TMemoryStream;begin R
2011-07-18 15:20:54 527
原创 listView
var reg: TRegistry; KeyList: TStringList; intIdx: Integer; Itm: TListItem; s: string;begin try KeyList := TStringLi
2011-07-17 22:30:50 377
原创 ListView排序
var Form1: TForm1; m_bSort: boolean = false;implementation{$R *.dfm}//ListView排序的回调函数,默认的是快速排序法,也可以在这里做算法function CustomSort
2011-07-16 21:53:10 455
原创 setDisPlay
const Orignwidth = 800; Orignheight = 600;procedure TForm1.FormCreate(Sender: TObject);//自适应begin scaled := true; if (scre
2011-07-16 20:20:59 851
转载 Delphi中canvas(画布)的运用
Delphi中canvas(画布)的运用 在DELPHI为编程者提供了一个灵活的绘图场所, 即本文所述的 CANVAS类, 在DELPHI中的很多控件都具有此属性, 使编程者可以 在这些的控件的表面随心所欲的绘图, 这对完善用户界面或者制 作一些屏幕
2011-07-16 13:47:46 713
原创 颜色表
色样本 十六进制 名称与注释 #ffb3a7粉红:即浅红色。别称:妃色 杨妃色 湘妃色 妃红色。 #ed5736妃色:妃红色。古同“绯”,粉红色。杨妃色、湘妃色、粉红皆同义。 #f00056品红:比大红浅的红色。 #f47983桃红:桃花的颜色,比粉红略鲜润的颜色。 #db5a
2011-07-08 20:17:36 1734
原创 查找高亮
var str, s1, s: string; i: integer;begin s := '''' + lst1.Items[lst1.ItemIndex] + ''''; s1 := lst1.Items[lst1.ItemIndex]; w
2011-07-08 19:15:51 419
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关注的人