自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(9)
  • 资源 (3)
  • 问答 (6)
  • 收藏
  • 关注

原创 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 1409

原创 初始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 2785

原创 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 614

原创 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

log4qt.zip

log4Qt库

2020-03-25

CopyWin10PngFile.vbs

获取win10锁屏壁纸的脚本,路径已经写成环境变量不用修改,双击就能用,获取后的图片路径在 windows的图片目录

2019-12-08

Teigha_Net_4.00_10-1.zip

Teigha 4.0 dll .net库 包含帮助文档 借助帮助文档可实现脱离CAD平台对图纸(*.dwg,*.dws,*.dwt,*.dxf,)进行 读取 显示 编辑 保存 等开发工作

2019-05-27

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

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