******注意，评论是从下向上看的***************** *********************************************** Musicwind (2001-9-2 15:15:29) 最近收藏了几篇英文文章，讲解有关Delphi对象模型的内容，很透彻。 The Delphi Object Model (PART I) http://www.csdn.net/develop/read_article.asp?id=10277 The Delphi Object Model (PART II) http://www.csdn.net/develop/read_article.asp?id=10278 The Delphi Object Model (PART III) http://www.csdn.net/develop/read_article.asp?id=10279
Musicwind (2001-8-31 11:51:23) to qinghou: 谢谢精彩的发言！
qinghou (2001-8-30 22:49:24) 呵呵，很少见到对Object Pascal这么深入的讨论个人观点： 1、在OP中，向上映射没有什么不好，正好相反，向上映射是OP的优点之一。 Form := TForm(Obj); 这种语法确实有危险，比较安全的用法应该是 If Obj is TForm Then Form := TForm(Obj); as和is操作符是OP优于C++的地方之一，因为OP的单根结构，使它对RTTI有非常好的支持。想想看，在Delphi的事件处理过程中，往往都是传进来一个TObject类型的Sender对象，如果不对它进行向上映射，那么这个Sender就一点用都没有了。 2、我赞成Musicwind的观点，Form1: TForm1;这种形式，与其说Form1是一个引用，不如说它是一个指针。OP确实是建立在“对象引用模型”或者说“对象/值模型”（应该是译名不同）之上，但是这种引用和C++的引用完全不同，它其实就是一种指针。在OP中，永远不能直接定义一个C++意义上的对象变量，当你定义一个对象变量时，事实上只是定义了一个地址，用以保存对象的内存位置。你必须手动create这个对象。当你访问对象时，事实上也是通过这个地址访问的。这个是大家都知道的。那么你到底将它视为指针还是引用呢？ Nicrosoft说： “虽然引用的本质是指针，但是，对于程序员来说，他们的概念还是需要清晰的区分的引用对于程序员来说，可以看作对象本身，而指针不是。” 这种区别在C++里是有意义的，但Delphi中就不同了。因为在Delphi中，没有哪种引用可以看作“对象本身”，甚至根本就没有“对象本身”。你用来用去的都是对象指针而已，只是没有显式地以指针方式表示出来。我甚至认为OP中根本没有C++中的引用这种概念。 Nicrosoft认为OP和C++的引用的区别是： “c++的引用不允许空引用，不允许动态改变引用所指向的对象” 那么，请想象一下，有这样一个变量，它存储着一个对象的地址，但这个地址可以为空，也可以动态改变指向的对象。你说它是象一个引用呢，还是象一个指针呢？ Macro Cantu在《Delphi4从入门到精通》（中文版，P61）里曾经说到这种对象引用模型，描述如下：“它的基本思想是，一个类的每个变量，并不保存对象的值，而是保存一个引用，或一个指针，以来说明对象存储的内存位置。”“使用这种方法的唯一问题是，当声明一个变量时，我们不能在内存中建立一个对象，只是保存对象引用的内存地址——一种指针。”在这里，他是把引用和指针等同起来的。 Macro Cantu认为对象引用模型是Delphi开发者所做的设计决定中最好的一个。我也觉得这种方式比C++更加清晰。
Musicwind (2001-8-29 16:40:29) to NicroSoft: 对于结构和类的区别吗，我还是知道一点地，我那番话，至少可以反驳你说"rPerson: TRPerson"是引用的那个观点。 好了，吵归吵，你的许多观点对我还是受益匪浅。经过我一番恐吓，抢白，你终于不吝笔墨把有关"引用/值"的模型阐述了一下，谢谢。 在C++中声明一个类的时候和Delhi的大不相同，同意。
引用是什么
不是指针是什么
C++的THIS和DELPHI的SELF有何本质的不同
只不过写法不同罢了
而且不必操心分配多大内存
也不用担心释放的问题
都由类本身的隐含代码做了
还是个老程序员?
Pointer
都是指针类型
TO：bengbeng24(蹦蹦@笨笨) TPoint是表示坐标的“点”类型，不是指针
现在接触了，才知道不是呢样的。
我怀疑呢位老程序员是不是我们学校的劣等生，丢人现眼。
i:=1000;
New(p);
p:=@i;
p:=@m;
dispose(p);上面代码中的new和dispose语句注释掉后程序仍可正常执行，那么两者的主要区别是什么呢？什么时候必须用new呢？
C＋＋在每一个角落。
New(p);
p:=@i;
p:=@m;
dispose(p);有人写出这样的代码，可悲啊
*****************************************************
Object Pascal：从对象指针谈起
作者: Musicwind®
创建时间: 2001-08-27
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
更新历史：No.1
更新时间：2001-08-27 19:47
更新人员：Musicwind®
更新备注：创建。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1. 对象指针无处不在
有人说指针是C语言的灵魂，但在Object Pascal中又何尝不是如此呢！你看程序中最常见的“Form1: TForm1;”的声明，还有“procedure TForm1.Button1Click(Sender: TObject);”这样的语句，其中的Form1不正是一个对象指针么？Sender，不也是的么？在Object Pascal中，通过一个对象指针来访问一个对象实例是最直接、最有效的方式。2. 对象指针的存储
当你声明一个TObject（或者TObject的派生类）类型的变量的时候，你便获得了一个对象指针，但是那只是一个指针而已，系统除了给你四个字节的存储空间外，并没有给你更多。并且，最初那四个字节的值是不确定的，这意味着你不能认为它一定是一个nil或者别的什么值。3. 对象指针只有一种
对象指针无论怎么千变万化，都可以归为一种，那就是TObject类型的对象指针。因为所有其它类，都是TObject派生，因此TObject类型的指针到处适用。比如这样的代码：
var
Obj: TObject;
Form: TForm;
begin
//….
Obj := Form; //可以有这样的代码，这里的类型转换是自动完成的。
…
end;
也许你会问，那么反过来可不可以呢？当然可以，但是没有那么方便。比如：begin
Form := TForm(Obj); // ß 这里需要经过强制转换
//…
end;
正如你所知道的，不同类型的变量是否可以互相转换，取决于它们对于存储空间的需求如何。正因为同是对象指针，对存储空间的要求完全一致，所以强制转换不成问题。
对象指针只有一种，似乎也可以总结为“天下指针皆一家”这句话。4. 灵活运用
有没有尝试过这样的代码呢？
var
i: Integer;
dw: DWORD;
begin
I := Integer(Button1);
ShowMessage(TButton(I).Caption);
dw := DWORD(Button1);
ShowMessage(TButton(dw).ClassName);
end;
你会发现，原来Integer，DWORD也可以作为对象指针来使用。原因自然是因为它们的存储空间与TObject类型的指针所要求的相同。
推而广之，只要有四个字节……（后面就不用我说了吧？），或者套用阿基米德的一句名言“只要给我四个字节，我就可以……”。
以下为评论
--------------------------------------------------------------------
***********************************************
Musicwind (2001-9-2 15:15:29) 最近收藏了几篇英文文章，讲解有关Delphi对象模型的内容，很透彻。 The Delphi Object Model (PART I) http://www.csdn.net/develop/read_article.asp?id=10277 The Delphi Object Model (PART II) http://www.csdn.net/develop/read_article.asp?id=10278 The Delphi Object Model (PART III) http://www.csdn.net/develop/read_article.asp?id=10279
Musicwind (2001-8-31 11:51:23) to qinghou: 谢谢精彩的发言！
qinghou (2001-8-30 22:49:24) 呵呵，很少见到对Object Pascal这么深入的讨论个人观点： 1、在OP中，向上映射没有什么不好，正好相反，向上映射是OP的优点之一。 Form := TForm(Obj); 这种语法确实有危险，比较安全的用法应该是 If Obj is TForm Then Form := TForm(Obj); as和is操作符是OP优于C++的地方之一，因为OP的单根结构，使它对RTTI有非常好的支持。想想看，在Delphi的事件处理过程中，往往都是传进来一个TObject类型的Sender对象，如果不对它进行向上映射，那么这个Sender就一点用都没有了。 2、我赞成Musicwind的观点，Form1: TForm1;这种形式，与其说Form1是一个引用，不如说它是一个指针。OP确实是建立在“对象引用模型”或者说“对象/值模型”（应该是译名不同）之上，但是这种引用和C++的引用完全不同，它其实就是一种指针。在OP中，永远不能直接定义一个C++意义上的对象变量，当你定义一个对象变量时，事实上只是定义了一个地址，用以保存对象的内存位置。你必须手动create这个对象。当你访问对象时，事实上也是通过这个地址访问的。这个是大家都知道的。那么你到底将它视为指针还是引用呢？ Nicrosoft说： “虽然引用的本质是指针，但是，对于程序员来说，他们的概念还是需要清晰的区分的引用对于程序员来说，可以看作对象本身，而指针不是。” 这种区别在C++里是有意义的，但Delphi中就不同了。因为在Delphi中，没有哪种引用可以看作“对象本身”，甚至根本就没有“对象本身”。你用来用去的都是对象指针而已，只是没有显式地以指针方式表示出来。我甚至认为OP中根本没有C++中的引用这种概念。 Nicrosoft认为OP和C++的引用的区别是： “c++的引用不允许空引用，不允许动态改变引用所指向的对象” 那么，请想象一下，有这样一个变量，它存储着一个对象的地址，但这个地址可以为空，也可以动态改变指向的对象。你说它是象一个引用呢，还是象一个指针呢？ Macro Cantu在《Delphi4从入门到精通》（中文版，P61）里曾经说到这种对象引用模型，描述如下：“它的基本思想是，一个类的每个变量，并不保存对象的值，而是保存一个引用，或一个指针，以来说明对象存储的内存位置。”“使用这种方法的唯一问题是，当声明一个变量时，我们不能在内存中建立一个对象，只是保存对象引用的内存地址——一种指针。”在这里，他是把引用和指针等同起来的。 Macro Cantu认为对象引用模型是Delphi开发者所做的设计决定中最好的一个。我也觉得这种方式比C++更加清晰。
Musicwind (2001-8-29 16:40:29) to NicroSoft: 对于结构和类的区别吗，我还是知道一点地，我那番话，至少可以反驳你说"rPerson: TRPerson"是引用的那个观点。 好了，吵归吵，你的许多观点对我还是受益匪浅。经过我一番恐吓，抢白，你终于不吝笔墨把有关"引用/值"的模型阐述了一下，谢谢。 在C++中声明一个类的时候和Delhi的大不相同，同意。
Nicrosoft (2001-8-29 16:07:19) to Musicwind: 你不知道“结构”（pascal称为“记录”）和“类”的区别吗？ 我也有错的，应该这样说，rPerson : TRPerson定义的是一个记录类型的实体，而不是引用，它是值！而Form1 : TForm1声明的是一个引用。这就是所谓的“引用／值”模型。对于简单类型／内建类型，编译器以值模型来使用对象，对于“类”类型的对象，编译器以“引用”模型使用对象。 声明结构本身就是定义了一个实体，但是类呢？类是“活”的，因此需要创建。这还得提到vcl的对象模型。 vcl的所有对象是建立在“堆”上的，因此，所有的“类”类型的对象必须通过.Create来创建，Free来释放。而简单类型的对象不需要，他们是创建在“栈”上的，因此一旦声明，就有了实体，并在超出作用域后会被编译器释放其空间。 不过，object pascal的引用和c++的引用还是有区别的。c++的引用不允许空引用，不允许动态改变引用所指向的对象，但是，object pascal的引用允许。因为object pascal的对象只能建立在堆上。
Musicwind (2001-8-29 15:30:59) to NicroSoft: 有些说到正题上了。 你说 "rPerson: TRPerson; "的声明是引用，并且认为"Form1: TForm1"的声明也是引用，我觉得你是自相矛盾的。 请问，既然都是引用，那么，为什么系统自动分配一个TRPerson记录的内存给rPerson而不需要调用 new或者Alloc等函数？为什么声明Form1的时候，系统只是分配作为指针所需的内存而已，并没有分配创建一个TForm1所需的内存？为什么我们可以直接使用rPerson.Name而对于Form1.Name我们需要事先调用 TForm1.Create(...)呢？同是引用，有这么大的区别么？ 请注意："Form1: TForm1;"的声明和"rPerson: TRPerson;"截然不同。 rPerson和Form1只能有一个是引用，你选择哪个？ 请回复，答疑，解惑。
Musicwind (2001-8-29 15:28:58) to NicroSoft: 有些说到正题上了。 你说 "rPerson: TRPerson; "的声明是引用，并且认为"Form1: TForm1"的声明也是引用，我觉得你是自相矛盾的。 请问，既然都是引用，那么，为什么系统自动分配一个TPerson记录的内存给rPerson而不需要调用 new或者Alloc等函数吗？为什么声明Form1的时候，系统只是分配作为指针所需的内存而已，并没有分配创建一个TForm1所需的内存呢？为什么我们可以直接使用rPerson.Name而对于Form1.Name我们需要事先创建呢？同是引用，有这么大的不同么？ 请注意："Form1: TForm1;"的声明和"rPerson: TRPerson;"截然不同。 rPerson和Form1只能有一个是引用，你选择哪个？ 请回复，答疑，解惑。
Nicrosoft (2001-8-29 14:02:24) to Musicwind: 虽然引用的本质是指针，但是，对于程序员来说，他们的概念还是需要清晰的区分的 引用对于程序员来说，可以看作对象本身，而指针不是。 你的第二个例子中： PRPerson = ^TRPerson; pPerson: PRPerson; 已经承认了，它是指针但是如果这样定义：pPerson: TRPerson; 这样就不是指针，而是声明一个引用了 是指针还是引用，不是看调用的地方有没有^，而是看声明的地方。 调用的地方可以省略^，只是编译器的特性，却不是语言的特性。
Musicwind (2001-8-29 13:50:44) 看看这篇：《Delphi精品书籍推荐》 http://www.csdn.net/develop/read_article.asp?id=8769
Musicwind (2001-8-29 13:48:39) to all: Charles Calvert出过一本书，叫《Delphi 2程序设计大全》，挺好，我还写过文章推荐呢。
Musicwind (2001-8-29 13:46:49) to chechy: "Delphi的Uses不能循环使用，也迫使某些参数必须使用基类"，我也碰到这样的问题，后来解决的方案也只是在implemention之前使用基类，在implemention之后使用as 或者强制转换搞定。 to NicroSoft: 对于"引用"，或者"别名"的说法，只是名称上不同而已，但是不能否认它是指针。再举个例子来说： Type TRPerson = packed record dwId: DWORD; sName: String; end; PRPerson = ^TRPerson; var rPerson: TRPerson; pPerson: PRPerson; begin pPerson := @rPerson; ShowMessage(pPerson.Name); //请问，难道说pPerson就不是一个指针么？因为没有^？ //其实，这里pPerson^.Name和pPerson.Name是一样的。 //..... 可以承认它是一个引用，但是也的承认，引用的本质就是指针。
chechy (2001-8-29 13:42:18) Charlie是不是就是Charles Calvert。如果是，他已经离开Borland了。
Musicwind (2001-8-29 13:35:19) to NicroSoft: 其实本来就象写一篇这样的文章，那天看到了你发表的贴子，没有讲到对象指针（或称对象引用？），觉得有必要补充说一下，就动笔写了。 Charlie是Borland的吗？现在的技术总监？没有拜读过他的大作，遗憾。
Musicwind (2001-8-29 13:09:51) to chechy: 很高兴再一次见到你回复我的贴字，谢谢！ 对你所说的活用Tag，表示赞同！因为这其实是我第四节隐含在文字后面想要表达的意思。 不用"指针"，而用reference似乎也说得过去。 至于第三节，有些面向对象的特性，说得好。
chechy (2001-8-29 12:47:03) 向上映射是存在不安全性。不过实际应用应该非常广泛的。我记得Nicrosoft你好像写过有关数据与界面分离的文章（大概是这个意思）。实际上我在写一些底层模块时，通常只用TObject，TForm，TComponent这样的基类。而在实际过程中，这些都是具体的对象，那么就需要被转化。此外Delphi的Uses不能循环使用，也迫使某些参数必须使用基类。这些都是向上映射。不过在转化是，我倒是建议大家不要使用强制类型转换，而用as操作符。虽然效率差了些，但是对于发现程序错误非常有用。
Nicrosoft (2001-8-29 12:30:05) 另外，Delphi是基于“引用／值模型”的说法，不是我说的，而是Charlie说的。
Nicrosoft (2001-8-29 12:28:24) to Musicwind: var Form1: TForm1; Form2: ^TForm1; implementation {$R *.dfm} procedure TForm1.MusicBtn1Click(Sender: TObject); begin Form2 := @Form1; ShowMessage(Form2^.Caption); end; 对于这个代码，我只能说，Form1是引用，Form2是指针。 所谓引用，就是对象的别名，也就是可以当作对象来使用的“奇异”的指针，Form1就是这样的，Form2^.Capti
http://www.csdn.net/Develop/read_article.asp?id=10124当时看完时，以为高手原来在此。但今天又看到上面那位：qinghou（左轻候）的一篇文章，才发现高手模样http://www.delphibbs.com/delphibbs/dispq.asp?lid=632501无言中
"看不懂有什么关系!东西做出来就行了!"很多人是这么想的,从开发效率上讲没错,但在技术上确很难有大的突破,处处受制于人!碰到类似问题还不是要问别人!真希望有个讨论纯技术的论坛,能和一群发自内心真正热爱编程的人一起讨论技术问题,哪怕只是看看别人讨论,每天都能获得新知识有所提高!(以上言论只从纯技术角度发出,不涉及其它问题)
嘿嘿。楼主，他是要你却搞清楚它们其实是一回事。
加上我的理解
void gp(void) | procedure gp();
{int *p; | var p:^integer;
int mm; | mm:integer;
| begin
p=&mm; | p:=@mm;
*p=5346; | p^:=5346;
printf("%d",mm) | showmessage(inttostr(mm));
} | end;有没有指针呢 。呵呵，看看就知道了