Delphi 8 for .net 第一时间　之　分析篇

_________________________________________________________________________

   本文章只是作者这两天试用D8并对VCL.net源码稍微查看了一下，作出的一些分

   析判断，时间水平有限请见谅 cocoboy79#163.com  qq:364941)

   下文中:D7代表基于Win32版本的Delphi，D8代表Delphi 8 for .net 

__________________________________________________________________________

  一直在使用Delphi编程，也一直关注.net技术。又是时代变化的时候了，VCl.net对于我们来说是一个完美的.net解决方案么?还是用于过度的桥梁?，如果你和我一样使用Delphi，那么我们是时候思考一下如何利用现有的Delphi技能更快的搭上.net快车。下面是这两天稍使用了一下Delphi8而总结一点东西，共同分享，共同思考。

TList:
    我们都知道TList实际上是一个功能强大的地址列表，这种数据结构非常有用。对于一个在D7中的TList的实例来说，这个地址列表中每一个项目(Item)是一个Pointer类型，你可以像下面程序一样，把对象变量或是一个值类型的指针(比如一个指向Record型的指针变量)存放到里面，在需要时取出来，并可以进行运行期类型转换。
var
  myList:TList;
  myLab:TLabel;
  i:integer;
begin
   myList:=TList.Create;
   for i:=0 to 10 do
   begin
     myLab:=TLabel.Create(self);
     myLab.Parent:=Self;
     myLab.Caption:=''''这是第 ''''+IntToStr(i)+'''' 个'''';
     myList.Add(myLab);
   end;
   for i:=0 to myList.Count-1 do
   begin
     ShowMessage( TLabel(myList.Items[i]).Caption );
   end;
end;

   在.net中你也会找到与之相像的一个东西，它就是.net中的ArrayList(System.Collections.ArrayList)，我在大概看了一下发现ArrayList可以说是
TList的一个增强，唯一不足的就是它不开放源码，我们没办法看到是如何实现的。而且我们会发现D8中的TList的实现也与ArrayList有关。　

  让我们来稍微看一下D7与D8中TList的源码的声明吧，（整个类声明请查看D7,8的TList源码，对于不开源的ArrayList就无能为力了）

这是D7中的TList的一些声明
FList: PPointerList;
property List: PPointerList read FList;
function Add(Item: Pointer): Integer;
function First: Pointer;
function Last: Pointer;

这是D8中的TList的一些声明
FList: System.Collections.ArrayList;
property List: System.Collections.ArrayList read FList;
function Add(Item: TObject): Integer;
function First: TObject;
function Last: TObject;

这是在D7是PpointerList的声明：
PPointerList = ^TPointerList;
TPointerList = array[0..MaxListSize - 1] of Pointer;
 
    看一下D7的TList，TList内部维护的Flist是一个PpointerList，实际上就是一个指向TpointerList的指针，（如最上面的程序，myList.Add(myLab)实际上就是往Flist中增加元素）TpointerList是一个静态的元素为无类型指针的数组。Pointer类型为无类型指针，这个在D7中的Pointer在D8的.net mangaged环境已经不能使用了，如果你在Vcl.net工程中声明一个Pointer变量，按f9会被告知： UnSafe pointer variables,parameters or consts only allowed in unsafe procedure 。所以上面D8的TList源码声明中的所有Pointer已经变成了Tobject，(注意这个TObject其实已经不是原先D7那个TObject了，它是：System.Object,这个等会再说。)。引用的一篇文章的一句话：Pointer -- There is a Pointer type, but in safe code Pointer is a reference to an object. You can''''t do pointer math on it.（http://delphi.weblogs.com），在.net的managed环境中指针代表对象的引用。即然原先的Pointer已经不能用了，那么Flist:PpointerList也就不能成立，于是它在D8中被改成了FList: System.Collections.ArrayList，所有Pointer都成了Tobejct。那么ArrayList，请去看看.Net的MSDN，功能上完全可以充当一个指针数组，只不过它的元素由Pointer变成了Tobject类型。

   其实看完了想想上面这个问题也很简单，就是一个寻找替代品的问题，看看D8的TList各方法的源码基本都没有变。后来我又看了一个其它类的源码发现在VCL.net中有好多这种’替代情况’，当原先的Delphi语言元素在.net环境中不便于或不能使用时，总会有一个.net framework中的替代品。

TObject：

TComponent:

  新建一个VCL.net工程，然后在Form上放一个Tedit或是Tmemo按f9，你会发现在代码编辑器上面的uses里比以前多了一个System.ComponentModel,如下所示。

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, System.ComponentModel, Borland.Vcl.StdCtrls;
    这是为什么？也是很简单，打开Borland.Vcl.Classes.pas文件找到114行有如下声明：TComponent = System.ComponentModel.Component;好了。。和TObject一样我们现在的Tcomponet已经和原先那个完全不同了，只是具有相同的名字，而且你也不用操心Tcomponent怎么实现的了，因为System.ComponentModel.Component的源码是不公开的。类似的还有  TPersistent = System.MarshalByRefObject　等等。