delphi新语法 *****

关于delphi XE 新语法及性能的提高

for…in…语句

在Delphi2005中，新增加了一个非常有用的语句，这个特性在其他很多语言中都有，就是著名的foreach循环，越来越多的人发现这个有用的东西了，也越来越多的语言在编译器层面直接加入了对这个的支持了。

Delphi的编译器在集合类型，数组类型，字符串类型以及提供了GetEnumerator方法的类提供了for…in…的直接支持。

集合类型：

var chars:set of char;

 c:char;

begin

 chars:=[‘a’..’e’,’0’..’9’];

 for c in chars do

    ShowMessage(c);

end;

数组类型：

type

  TNumber=(Null,Eins,Zwei,Drei,Vier,Funf,Sechs,Sieben,Acht,Neun);

const

  NumberToEnglish:array[TNumber] of string=('Zero','One','Two','Three','Four','Five','Six','Seven','Eight','Nine');

var n:TNumber;

begin

  for n in [Low(TNumber)..High(TNumber)] do

  ShowMessageFmt('%s=%s',[GetEnumName(TypeInfo(TNumber),Ord(n)),NumberToEnglish[n]]);

end;

字符串类型：

var S:String;C:Char;

begin

 S:=’Hello World’;

 for C in S do

    ShowMessage(S);

end;

在VCL中，已经有如下类型已经提供了GetEnumerator方法：

TList 

TCollection 

TStrings 

TInterfaceList 

TComponent 

TMenuItem 

TCustomActionList 

TFields 

TListItems 

TTreeNodes 

TToolBar

 

 高速DELPHI程序技巧.内存方面

-----------------------------

1、对齐

  在内存中的数据应尽量按计算机位数对齐。

  32位机，所有的8/4字节数据，都按4字节对齐；10/6/2字节数据，按2字节对齐。

2、字符串

赋值使用注意事项如下：

  A、不同种字符串间赋值，将引起内存分配与复制；

  B、ShortString与ShortString之间赋值，将引起内存分配与复制；

  C、变量AnsiString与变量AnsiString之间赋值，不会引起内存分配与复制；

  D、常量AnsiString与变量AnsiString之间赋值，将引起内存分配与复制；

  E、WideString与WideString之间赋值，将引起内存分配与复制；

3、内存分配

  大量的相同大小块，尽量自己建立块分配器来分配，因为使用默认内存管理器，有二个问题：

  A、块会被加上块头(块大小，最少4字节)，这将引起比较大的浪费

  B、由于内存管理器会有堆操作(查找/合并)与线程互斥，这将影响性能

4、抖动

  如果Pointer数组物理存储不连续，需要顺序访问，可能引起大量的内存页交换，会极大降低性能

2006新特性

1、操作符重载

2、类支持strict严格限制

    strict private        仅本类可见

    strict protected    仅本类及子类可见

3、类支持

    class var    类变量

    var        变量

    const        常数

4、类支持类属性

    class property ...

5、类支持Static类静态方法

    procedure method; static;     与类方法不同：没有Self，不能Virtual

   class procedure method; static;

  是一个静态方法，静态方法是方法的缺省类型，对它就像对通常的过程和函数那样调   
  用。编译器知道这些方法的地址，所以调用一个静态方法时它能把运行信息静态地链接进可执行文件。   
  静态方法执行的速度最快，但它们却不能被重写来支持多态性。   

6、类可以嵌套定义

7、使用Sealed产生密封类

  TTest = class Sealed(TBase)

  这样TTest将不能被继承

8、使用final产生终结方法

  TTest = class(TBase)

    procedure method; override; final;

  end;

  这样method将不能被继承

看看Delphi重载了多少个ifthen函数.

Math单元

function IfThen(AValue: Boolean; const ATrue: Integer; const AFalse: Integer= 0): Integer; overload; inline;

function IfThen(AValue: Boolean; const ATrue: Int64; const AFalse: Int64 =0): Int64; overload; inline;

function IfThen(AValue: Boolean; const ATrue: UInt64; const AFalse: UInt64 =0): UInt64; overload; inline;

function IfThen(AValue: Boolean; const ATrue: Single; const AFalse: Single =0.0): Single; overload; inline;

function IfThen(AValue: Boolean; const ATrue: Double; const AFalse: Double =0.0): Double; overload; inline;

function IfThen(AValue: Boolean; const ATrue: Extended; const AFalse:Extended = 0.0): Extended; overload; inline;

StrUtils单元

function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ”):string; overload; inline;

Delphi从2009之后增加了泛型,那么之前math,strutils单元的ifthen函数有很多种重载形式似乎就可以合并成一个单独的泛型函数了.

type

  TExtFuns = class

   class function IfThen(AValue: Boolean; const ATrue, AFalse: T): T; inline;

  end;

class function TExtFuns.IfThen(AValue: Boolean; const ATrue, AFalse: T): T;

begin

  if AValue then

    Result := ATrue

  else

    Result := AFalse;

end;

使用

var

  s : string;

  i : Integer;

  s := TExtFuns.IfThen(True, '条件成立', '条件不成立!');

  i := TExtFuns.IfThen(GetTickCount > 1, 1, 2);

还有更便捷的办法,从XE3以后扩展了新的Helper语法,可以给任意类型增加扩展函数.就有更方便的技巧了.

TBoolHelper = record helper for Boolean

  function IfThen(const ATrue, AFalse: T): T; inline;

end;

function TBoolHelper.IfThen(const ATrue, AFalse: T): T;

begin

  if self then

    Result := ATrue

  else

    Result := AFalse;

end;1

//使用

var

  s : string;

  i : Integer;

  s := True.IfThen('a','b');

  i := (gettickcount >1).IfThen(1, 2);//是不是很爽,方便程度不亚于C语言族系的?:语法吧.

end;

XE3之后的SysUtils单元里面内置了TBooleanHelper,TByteBoolHelper,TWordBoolHelper,TLongBoolHelper四个布尔类型的Helper,那么如果易博龙肯把ifthen集成到这四个辅助类上我们用起来就会更方便.

TNewClass = class(TObject)

 type//在类内部增加类型定义,不增加对象内存大小

     Trecord=record

      I:Word;    

     end;

   private

      fk:Integer;     

   public

      constructor Create; virtual;

      destructor Destroy; override;

   end;