2016年11月_qq_25235869

11月 09月 08月 07月 06月 05月 04月 03月

原创 Delphi 计算指定目录下所有文件的大小(遍历文件夹所有文件及目录)

function GetDirectorySize(const ADirectory: string): Integer;var SearchRec: TSearchRec; Ret: Integer;begin Result := 0; Ret := FindFirst(ADirectory + '\*.*', faAnyFile, SearchRec); // 查找成功返回

2016-11-16 16:51:11 1412

原创初始Delphi的一些基本组件

窗体:ShowModal 与show的区别:Show可以在主窗口中继续接收消息执行任务,而showModal主窗口不能在继续执行任务TRadioGroup 单选组框Items添加单选项, ItemIndex 设置默认勾选项TPopUpMenu:右击窗体空白处弹出菜单(更改主窗体的PopUpMenu属性为当前的POPMenu事件)fream(框架):

2016-11-16 16:43:22 777

原创 Delphi 动态分配内存

动态分配内存①GetMem(var P: Pointer; Size: Integer);//分配②AllocMem(Size: Cardinal):Pointer; //分配Size大小空间,并初始化为0 返回分配到的指针③FreeMem(Var P: Pointer); //释放以上分配方式分配的内存④New(var P:Pointer) //New分配的大小由

2016-11-14 11:25:02 2788

原创 Delphi 回调函数

回调函数:①type FunctionType = function(num: Integer): Integer; // 定义过程类型,申明在单元文件的type下面 Tform之前 // TForm1 = class(TForm)②function Callback(n: Integer; cacu: FunctionType): Integer; // 定义回调函数

2016-11-14 11:20:30 1732

原创 Delphi 代码文件你结构

代码文件结构:program的组织结构://program Project1; //一个名为Project的项目文件//uses //在program中需要用到哪些单元Froms, Unit1 in 'Unit1.pas', Dialogs;//定义常量和变量var{$R *.res}//编译指令此处是要编译的资源文件project1

2016-11-14 11:19:19 1138

原创 Delphi函数

过程和函数:区别:函数可以有返回值, 过程没有返回值//函数function GetApplicationPath(ShowResult: Boolean) :string; //函数内有个预定义的Result 作为返回值口号后面为函数返回类型begin Result := ParaStr(0); //获得程序路径 Result := ExtractFilePath(R

2016-11-14 11:17:11 357

原创 Delphi 流程控制

程序流程控制(1)条件分之if...else:var I:Integer;beginif I > 0 thenbeginDo //不能给';'end //没有结束 if...else都不能加';'selse if I begin//Doendelsebegin//Do; //两个语句以上前面的语句必须加';'//Do

2016-11-14 11:15:50 615

原创 Delphi数据类型

数据类型:(1)常用类型ShortInt(char),Byte(BYTE,unsigned short),SmallInt(short)Word(unsigned short)*Real48(6字节浮点数)Integer,LongInt(int, long)Cardinal,LongWord/DWORD(unsigned long),Int64 (_int64)

2016-11-14 11:14:50 1490

原创从C转换到到Delphi运算符

注:括号内为C运算符:1,运算符: 赋值::=(=), 比较运算符 =(==), (>), =(>=) 逻辑运算符and(&&), or(||) not(!)算数运算符+(+), -(-), *(*), /(浮点数)(/), div(整数)(/), mod(%)位运算符and(&), not(~), or(|), 异或

2016-11-14 11:13:51 350