Delphi之参数化类型(泛型)

Delphi做容器比较不方便的地方就是没有泛型,也就是参数化类型.

例如TList里面每一项是TForm.那么Delphi就不能使用List[I].Show();这样的方法.而必须做类型转换.

TForm(List[I]).Show();

虽说一样能实现,但是毕竟麻烦.C++正是因为支持泛型才有的模板库.

Rad Studi 2007的Delphi.NET已经开始支持泛型了.这个我不太感兴趣,我感兴趣的是Delphi Win32对泛型的支持.

根据Code Gear发布的Delphi路线图.Delphi Win32在2008上半年发行的版本里会支持泛型.

不过我们到时可以用Delphi2007.NET先预览一下Delphi对泛型的语法支持是怎样的.

查了一下CodeGear上面的官方说法.不过给出的例子语法很多地方都不对.自己琢磨了很久才出正确的.CodeGear这态度太"认真"了.

type
TGenericList <T> = class
private
FData : array of T;
function GetItem(Index: Integer): T;
public
Function Add(Item : T):Integer;
function GetCount: Integer;
procedure Delete();
Procedure Clear();

property Count : Integer Read GetCount;
property Item[Index : Integer] : T read GetItem;default;
end;

function TGenericList<T>.Add(Item: T): Integer;
begin
Result := Count;
SetLength(FData, Result + 1);
FData[Result] := Item;
end;

procedure TGenericList<T>.Clear;
begin
//懒得写了
end;

procedure TGenericList<T>.Delete;
begin
//懒得写了
end;

function TGenericList<T>.GetCount: Integer;
begin
Result := 0;
if FData = nil then
Exit;
Result := Length(FData);

end;

function TGenericList<T>.GetItem(Index: Integer): T;
begin
Result := FData[Index];
end;

使用的时候

var
ButtonList : TGenericList<TButton>;
I : Integer;
begin
ButtonList := TGenericList<TButton>.Create();

for I := 0 to 3 do
begin
ButtonList.Add(TButton.Create(Self));
ButtonList[I].Caption := IntToStr(I);
ButtonList[I].Top := ButtonList[I].Height*I;
ButtonList[I].Parent := Self;
end;

ButtonList.Free();
end;

至于Delphi的泛型是像C++,Java那样基于源代码替换机制还是像.NET那样的基于运行时信息的我就没有细看.毕竟我对IL ASM不是特别熟悉.估计Delphi.NET可能是和C#一样基于运行时吧.那么Delphi Win32呢?难道也是基于运行时?毕竟这样的话还要添加一些运行时的信息.如果是基于源码替换规则,那么DCU文件还要重新编译吗?毕竟C++的泛型OBJ,LIB文件不用编译,因为它有带源代码的头文件.不去想了

呵呵,在登上几个月.2008年上半年发布的Delphi for Win32也会具有这样的方便语法.