自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

转载 Delphi制作DLL

Delphi制作DLL 一 Dll的制作一般步骤 二 参数传递 三 DLL的初始化和退出清理[如果需要初始化和退出清理] 四 全局变量的使用 五 调用静态载入 六 调用动态载入 七 在DLL建立一个Tform 八 在DLL中建立一个TMDIChildform 九 ...

2013-12-19 18:42:25

阅读数 2700

评论数 0

转载 Delphi之钩子函数

目前对钩子的理解:     譬如我们用鼠标在某个窗口上双击了一次, 或者给某个窗口输入了一个字母 A;首先发现这些事件的不是窗口, 而是系统!     然后系统告诉窗口: 喂! 你让人点了, 并且是连续点了两鼠标, 你准备怎么办?或者是系统告诉窗口: 喂! 有人向你家里扔砖头了, 不信...

2013-12-19 14:50:32

阅读数 5873

评论数 0

原创 动态数组指针应用

Type TMyArr = array of array of array of Integer; Pint = ^TMyArr; var PArr: Pint; i, j, k, ic, jc, kc: Integer; begin ic := 2; jc := 3; ...

2013-12-06 20:01:16

阅读数 786

评论数 0

原创 传入动态数组

TMyRec = record sName: string[15]; Sex: integer; end; pMyRec = ^TMyRec; arr1 = array of pMyRec; var a1: arr1; procedure TForm1.But...

2013-12-05 19:03:36

阅读数 766

评论数 0

原创 数组类型指针

{使用一个元素的数组指针} PMyRec = ^TMyRec; TMyRec = record F1: Char; F2: Word; end; procedure TForm1.Button1Click(Sender: TObject); type PArr =...

2013-12-05 18:17:58

阅读数 674

评论数 0

原创 数组指针参数

Const arr1: array [0 .. 1, 0 .. 1] of string = (('A0B0', 'A1B0'), ('A0B1', 'A1B1')); arr2: array [0 .. 2, 0 .. 1] of string = (('X0Y0', 'X1Y0...

2013-12-05 02:07:38

阅读数 695

评论数 0

转载 RmbChangdx

function RmbChangdx(mmje: Double): String; const s1: String = '零壹贰叁肆伍陆柒捌玖'; s2: String = '分角元拾佰仟万拾佰仟亿拾佰仟万'; var s, dx: String; i, Len: Inte...

2013-12-05 00:39:38

阅读数 659

评论数 0

原创 Tlist_Demo

type TSmt = record SName: string[16]; Feeder: Integer; Dushu: Real; end; Psmt = ^TSmt; var List: TList; procedure TForm2.But...

2013-12-04 23:19:24

阅读数 654

评论数 0

转载 Delphi 快捷键

分类 快捷键 解释 备注 组 件 设 计 类 Escape 选择当前组件容器   Shift + Click 选择多个组件;选择窗体   Tab 选择下一个组件   Sh...

2013-12-02 21:07:04

阅读数 723

评论数 0

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