在水一方

也谈VCL中DragDrop功能的底层实现

chenyq2008 — Wed, 14 Jan 2009 07:07:00 +0800

前段时间在论坛里看了一篇关于剖析VCL结构的文件，其中不少高手的开怀畅谈让小辈们心里感觉非常的痛快！看完余又觉得不能光看，也该将自己的心得拿出来与大家分享，于是就边夜翻看VCL源码，终于将VCL如何实现DragDrop功能的过程弄个“基本明白”，其中可能会有不当之处，再加上小弟的文学水平也只是初中毕业，有些地方也许会表达不当，但其意思也基本上八九不离十了，故也请大家开怀畅言、批评指正，都是为了进步嘛！哈哈……

虽然DragDock操作与DragDrop操作是密切相关，并且很大一部分操作是相同的，但本文暂且不讨论与DragDock有关的部分，留待下回分解或也给大家表现表现………………

一、与DragDrop操作相关的属性、事件、函数

VCL的DragDrop功能是在TControl类中现的，因此所有从TControl类派生出来的控件类者继承了这些属性、事件和函数，包括：

属性：DragCursor: Drag时的鼠

对象内存的分配及回收

chenyq2008 — Sun, 21 Dec 2008 20:05:00 +0800

编译器在为对象分配内存时，所提供的支持就是在调用构造函数之前插入这几行汇编代码：

test dl, dl
jz +$08
add esp, -$10
call @ClassCreate // 注意这行代码

以上代码的最后一行代码调用的是system.pas文件的第8949行的_ClassCreate函数（以Delphi 6为准），该函数具体为每个对象分配合适的内存。内存分配完成后是调用类的构造函数以初始化数据成员。之后，编译器会再插入以下几行汇编代码：

test dl, dl
jz +{logcontent}f
call @AfterConstruction
pop dword ptr fs:[{logcontent}]
add esp, {logcontent}c

其中主要工作是调用每个对象实例的AfterConstruction，这个调用在Delphi中没有用，它的存在是为C++Builder所保留的。
同样，析构对

在 DELPHI 中 procedure 型变量与 method 型变量的区别

chenyq2008 — Sat, 29 Nov 2008 19:21:00 +0800

Procedure型变量：
在DELPHI中，函数、过程的地址可以赋给一个特殊类型的变量，变量可用如下方式声明：
var p : procedure(num:integer); //过程
或：
var f : function(num:integer):integer; //函数
也可定义一个过程（或函数）类型，再定义该类型的变量，如：
type TMyProc = Procedure(num:integer);
var p : TMyProc;

example:
type TMyProc= procedure (filename : string); //定义过程类型
procedure clearfile(filename : string);
begin
{….}
end ;
…
var p:TMyProc; //定义过程变量
…
p := clearfile; //

关于继承的方式测试

chenyq2008 — Mon, 06 Oct 2008 17:59:00 +0800

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TBase=class
public
   function AAA:string;
   function BBB:string;virtual;
   function CCC:string;
end;

TA=class(TBase)
public
   function AAA:string;
   function BBB:string;override;
   function CCC

delphi变量内存分配与释放

chenyq2008 — Sun, 28 Sep 2008 07:20:00 +0800

变量内存分配

堆、栈及静态数据区详解

chenyq2008 — Sun, 28 Sep 2008 06:57:00 +0800

五大内存分区
    在C++中，内存分成5个区，他们分别是堆、栈、自由存储区、全局/静态存储区和常量存储区。
    栈，就是那些由编译器在需要的时候分配，在不需要的时候自动清楚的变量的存储区。里面的变量通常是局部变量、函数参数等。
    堆，就是那些由new分配的内存块，他们的释放编译器不去管，由我们的应用程序去控制，一般一个new就要对应一个delete。如果程序员没有释放掉，那么在程序结束后，操作系统会自动回收。
    自由存储区，就是那些由malloc等分配的内存块，他和堆是十分相似的，不过它是用free来结束自己的生命的。
    全局/静态存储区，全局变量和静态变量被分配到同一块内存中，在以前的C语言中，全局变量又分为初始化的和未初始化的，在C++里面没有这个区分了，他们共同占用同一块内存区。
    常量存储区，这是一块比较特殊的存储区，他们里面存

关于Delphi中string的一些理解

chenyq2008 — Sun, 28 Sep 2008 06:19:00 +0800

delphi使用的object pascal对字符串类型提供了内建支持

一种简单的shortstring是为兼容turbo pascal等老版本
而保留的，具体实现是一个最大256字节的数组，
第0个字节保存字符串的长度，然后依次是1,2...n
结尾没有#0标识，因此老一点讲pascal的书里面都是直接用
str[0]访问字符串str的长度的……此类型已基本上被遗弃

新的所谓longstring类型是从delphi2开始引入的，因为
delphi2开始支持32位win,并加入了对pchar的内建支持
具体实现是一块动态分配的内存块，内存块的前两个dword
保存着此字符串的长度和引用计数器等等信息，
因为是用一个dword保存长度，因此字符串长度可以非常大
呵呵，具体多大其实根本没有意义，反正用不完了 :)
然后字符串的末尾以#0结束，以兼容window用的sz字符串类型
所谓pchar(str)转换，其实只是取字符串的头指针罢了
（注意这里的头指针直接指

Delphi动态数组介绍

chenyq2008 — Sat, 27 Sep 2008 19:40:00 +0800

从 Delphi4起，开始了内建各种类型的动态数组支持。但是，对我们来说动态数组支持似乎做的不够彻底，因为Delphi竟然连删除、插入、移动连续元素的函数都没有提供，让人使用起来总觉得不够爽！！！ J 。作为一名程序员，我们当然要有自己解决问题的能力，下面就让我们简单介绍一下Delphi 下的动态数组。

在Delphi中，数组类型有静态数组（a : array[0..1024] of integer）、动态数组（var a : array of integer）、指

ASCII

chenyq2008 — Sat, 27 Sep 2008 06:16:00 +0800

美国标准信息交换标准码

　　( American Standard Code for Information Interchange, ASCII )

　　在计算机中，所有的数据在存储和运算时都要使用二进制数表示（因为计算机比较傻，只有0和1两位数的二进制比较适合于它使用），同样的，象a、b、c、d这样的52个字母（包括大写）、以及0、1、2等数字还有一些常用的符号（例如*、#、@等）在计算机中存储时也要使用二进制数来表示，而具体用哪个数字表示哪个符号，当然每个人都可以约定自己的一套（这就叫编码），而大家如果要想互相通讯而不造成混乱，那么大家就必须使用相同的编码规则，于是美国有关的标准化组织就出台了所谓的ASCII编码，统一规定了上述常用符号用哪个二进制数来表示。

　　美国标准信息交换代码是由美国国家标准学会(American National Standard Institute

字符，字节和编码

chenyq2008 — Sat, 27 Sep 2008 05:50:00 +0800

字符，字节和编码