delphi数组与c语言数组不同,读帮助文档发现Delphi2009的新特性,象C语言一样用数组方式使用指针....

传统的Pascal指针和数组不是等价概念.不能像数组一样使用下标指针(编译器特殊处理的PChar类型除外).

而C语言中数组就是数组第一个元素的地址.和指针在一定程度上等价.指针所指向的内容也可以象数组一样用下标来访问.

虽然问题不大但是写起代码来就麻烦,而且不直观.

如下代码以往的Delphi只能这样写.

const

rw = 10;

rh = 10;

procedure SetRects(lpRect: PRect; dwCount : Cardinal);

var

I : Integer;

begin

for I := 0 to dwCount - 1 do

begin

lpRect^ := Rect(I*rw, 0, I*rw+rw, rh);

Inc(lpRect);

end;

end;

或者非要用下标访问的话就要变通一下.

const

rw = 10;

rh = 10;

procedure SetRects(lpRect: PRect; dwCount : Cardinal);

type

TRects = array[0..0]of TRect;

pRects = ^TRects;

var

I : Integer;

lpRects : pRects;

begin

lpRects := pRects(lpRect);

for I := 0 to dwCount - 1 do

begin

lpRects[I] := Rect(I*rw, 0, I*rw+rw, rh);

end;

end;

但是Delphi2009新增了编译开关,允许象C语言一样用下标直接访问数组所指向的元素.

{$POINTERMATH ON}

const

rw = 10;

rh = 10;

procedure SetRects(lpRect: PRect; dwCount : Cardinal);

var

I : Integer;

begin

for I := 0 to dwCount - 1 do

begin

lpRect[I] := Rect(I*rw, 0, I*rw+rw, rh);

end;

end;

呵呵方便多了.

不过要注意默认是{$POINTERMATH  OFF}的.