Delphi 2010正式版下载(RAD Studio 2010下载)
在8月26日正式发布了RAD Studio 2010，就是我们所谓的Delphi 2010。RAD Studio 2010包含Delphi、C++ Builder和Delphi Prism等。 RAD Studio 2010 的新功能主要在于：增强的 IDE和可视化组件库 (VCL) 框架和基础的编译器以及其他各项工具，这使得你构建那些跨越所有的数据源和层次的可视化应用变得更加容易。 RAD Studio 2010 中的重要新功能包括：支持最尖端的触摸和手势-使您的应用程序能够支持包括Windows 7在内的任何 Windows 操作系统通过增强的DataSnap™框架和DBExpress数据访问驱动，支持最新的数据库平台，包括Firebird数据库的支持！ IDE Insight，随时访问任何功能，设置，或组件包括tabbed toolbar的Delphi 7 经典模式布局选项超过 120项针对开发的IDE 功能增强在2009版的基础上，又有超过一百项的功能增强，包括 Unicode、 泛型、 匿名方法等等看上去着实激动人心，作为delphi的忠实fans，希望这次RAD Studio 2010包括其中的Delphi系列产品能够重塑辉煌。并且也早日推出横跨Windows、Max OSX和Linux的开发产品。桌面端加上web，以及因为手机而越来越模糊定义的客户端，开发工具的天地还是很宽阔的。 RAD Studi ......

一、一个叫声接口和几只鸭子
1、从一个叫声接口开始
{《HeadFirst设计模式》Delphi代码之模式小结 }
{ 一个叫声接口 }
{ 编译工具：Delphi2010 for win32 }
{ E-Mail ：xshlife@163.com }

unit uQuackable;

interface

type
IQuackable = interface(IInterface)
procedure Quack;
end;

implementation

end.

2、几只鸭子实现了该叫声接口。
{《HeadFirst设计模式》Delphi代码之模式小结 }
{ 几只鸭子实现了声接口 }
{ 编译工具：Delphi2010 for win32 }
{ E-Mail ：xshlife@163.com }

unit uDuck;

interface

uses
uQuackable;

type
TMallardDuck = class(TInterfacedObject, IQuackable)
public
procedure Quack;
end;

TRedHeadDuck = class(TInterfacedObject, IQuackable)
public
procedure Quack;
end;

TDuckCall = class(TInterfacedObject, IQuackable)
public
procedure Quack;
end;

TRubberDuck = class(TInter ......

 推荐给大家[url=DELPHI深度探索 （第2版）PDF电子书][/url]
因为需要前几天在网上搜搜过这本书书，可没有，源码倒是有，今天打开经常去的网站，居然发现提供下载了，这个网站自己差不多每天都要打开看看，这几天忙糊涂了，居然没有看到，在这推荐给大家，能下载的，速度很快。
[url=http://www.delphifans.com/SoftView/SoftView_2833.html][/url]
现在好的网站真不多，这个我觉得是比较好的一个了，今年前些时候，站长还每天发布一个自己的源码，比较那些收费的网站，站长做的很好了。
[color=#FF6600]声明：我和这个网站没有任何关系(ydlchina)[/color]
另外我每天去的网站还有
[url=http://www.2ccc.com/][/url]Delphi盒子
[url=http://www.ccrun.com/][/url]C++Builder研究（妖哥）
大家还有好的网站推荐一下 ......

1. 抽象工厂的产品
{《HeadFirst设计模式》工厂模式之抽象工厂 }
{ 抽象工厂的产品 }
{ 编译工具：Delphi7.0 }
{ E-Mail ：xshlife@163.com }

unit uPizzaIngredient;

interface

type
TDough = class(TObject)
end;

TThinCrustDough = class(TDough)
end;

TThickCrustDough = class(TDough)
end;

////////////////////////////////

TSauce = class(TObject)
end;

TMarinaraSauce = class(TSauce)
end;

TPlumTomatoSauce = class(TSauce)
end;

////////////////////////////////

TCheese = class(TObject)
end;

TReggianoCheese = class(TCheese)
end;

TMozzarellaCheese = class(TCheese)
end;

//////////////////////////////////

TPepperoni = class(TObject)
end;

TSlicedPepperoni = class(TPepperoni)
end;

////////////////////////////////////

TClams = class(TObject)
end;

TFreshClams = class(TClams)
end; ......

 //定义MyClass
TMyClass = class
GUID: string;
Name: string;
bSex: Boolean;
Tel : string;
end;
//取值
var
obj: TMyClass;
begin
obj := TMyClass.Create;
with Memo1.Lines do
begin
Add('对象大小:' + IntToStr(obj.InstanceSize));
Add('对象所在地址：'+ IntToStr(Integer(obj)));
Add('GUID所在地址：'+ IntToStr(Integer(@obj.GUID)));
Add('Name所在地址：'+ IntToStr(Integer(@obj.Name)));
Add('bSex所在地址：'+ IntToStr(Integer(@obj.bSex)));
Add('Tel所在地址：'+ IntToStr(Integer(@obj.Tel)));
end;
obj.Free;
end;

结果：
两个版本的Delphi对象大小以及分配的起始地址不同 ......

1. 产品类
{《HeadFirst设计模式》工厂模式之简单工厂 }
{ 产品类 }
{ 编译工具 ：Delphi7.0 }
{ 联系方式 ：xshlife@163.com }

unit uProducts;

interface

type
TPizza = class(TObject)
public
procedure Prepare; virtual; abstract;
procedure Bake; virtual; abstract;
procedure Cut; virtual; abstract;
procedure Box; virtual; abstract;
end;

TCheesePizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

TVeggiePizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

TClamPizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;
......