Delphi之参数化类型(泛型)

原创 2007年09月19日 13:28:00

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也会具有这样的方便语法.

Delphi泛型结合接口的应用 (译自Delphi2009 Handbook)

            通过接受一个限定的参数,这个参数是实现某个接口的类,比较起直接接受泛型,而限制这个泛型的类要更加灵活。也就是通常所说的面向接口式的编程。这样可以达到调用实现了这个接口的各种泛型...

Delphi 泛型应用

TArray TEnumerator(抽象) TEnumerable(抽象)  实际使用:TList TQueue TStack TPair TDictionary ,内部都包含 TValueEnu...
  • rocklee
  • rocklee
  • 2015年09月21日 16:19
  • 2373

Delphi 泛型集合的排序实例

           (译自Delphi2009 Handbook)TList的Sort方法:procedure Sort; overload;procedure Sort(const ACompar...

java通过反射,只需要传了类名和参数,就可以根据不同参数的构造方法实例化对象

转载自:http://www.jianshu.com/p/69ca44916ebf 代码块 @requires_authorization private Object reflateInsta...

kafka源码解析之一kafka诞生的背景

Apache Kafka是由Apache软件基金会开发的一个开源消息系统项目,由Scala写成。Kafka最初是由LinkedIn开发(LinkedIn (领英) 创建于2002 年,致力于向全球职场...

zmq_msg_t的结构和相关函数

因为tcp是一种字节流类型的协议,木有边界,所以把该消息边界的制定留给了应用层。通常有两种方式实现: 1. 在传输的数据中添加分隔符。 2. 在每条消息中添加size字段。 而zeromq可以说...
  • qwangq
  • qwangq
  • 2014年12月30日 15:54
  • 1003

java 带两个类型参数的泛型

  • 2010年06月21日 16:08
  • 59KB
  • 下载

获取java参数化类中泛型的具体类型

如何获取List中的T.class? 衍生出来的问题就是:如何获取java中参数化类中泛型的具体类型? 关键是ParameterizedType这个接口...

黑马程序员--04.泛型深入--02【参数化类型的特点】

泛型深入--2 参数化类型的特点 ----------- android培训、java培训、java学习型技术博客、期待与您交流! ------------   参数化类型的特点 1). 类型化不具...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi之参数化类型(泛型)
举报原因:
原因补充:

(最多只允许输入30个字)