zoukankan      html  css  js  c++  java
  • Dephi泛型

    TArray TEnumerator(抽象) TEnumerable(抽象)
    实际使用:TList TQueue TStack TPair TDictionary ,内部都包含 TValueEnumerator
    碰到对象:TObjectList TObjectQueue TObjectStack TObjectDictionary
    另外haiy:TThreadedQueue

    比如以前Delphi没有integer list,用泛型,我们可以这样声明:

    var
    list: TList<Integer>;
    i:integer;
    begin
    list := TList<Integer>.Create;
    list.Add(1);
    list.Add(2);
    list.Add(3);
    list.Items[2] := 8;

    for I := 0 to List.Count-1 do
    ShowMessage(IntToStr(List.Items[i]));

    list.Free;
    end;

    TDictionary类是一个name,value容器,内部是哈希索引,所以对于数据查找非常高效,如下面的代码:

    var
    Dict: TDictionary<string, string>;
    begin
    Dict := TDictionary<string, string>.Create;
    Dict.Add('key1', 'value1');
    Dict.Add('key2', 'value2');
    if not Dict.ContainsKey('key3') then
    Dict.Add('key3','value3');
    Dict.Free;
    end;


    上面的代码中name和value都是string类型,实际应用中可以用其它的类型比如integer,double之类
    因为Object Pascal没有垃圾收集,所以对应的每种泛型类都有一个对应引用类型实现,比如TObjectList,TObjectDictionary,这些类实现中, 当删除元素时会自动帮你释放对象。
    上面的TList和TDictionary在Generics.Collections单元,有兴趣可以研究一下代码。除了已有的泛型类之外,你可以编写自己的泛型类,感兴趣的朋友可以google相关文章。

    几本参考书:

    http://www.cnblogs.com/del/archive/2008/08/15/1268786.html

    http://read.pudn.com/downloads161/ebook/731442/delphi-generics.pdf

    http://www.jcolibri.com/articles/prog_objet_composants/delphi_generics/delphi_generics.html

    http://www.danysoft.com/free/using-new-delphi-coding-styles-and-architectures-marco-cantu.pdf

    http://docwiki.embarcadero.com/CodeExamples/XE5/en/Generics_Collections_TList_(Delphi)

    http://www.felix-colibri.com/papers/oop_components/delphi_generics_tutorial/delphi_generics_tutorial.html

  • 相关阅读:
    2007417 13:01:00 运行时数据结构
    2008515 1:38:00 为受灾的人们祈福,祭那些在地震中离开的人
    200732 19:00:00 一段设置8253芯片的程序
    从实模式到保护模式
    200739 18:01:00 linux界的元老
    2007311 19:11:00 cpu执行第一条指令时情形
    20061127 19:54:00 在你心中有这样的一个人吗? (转)
    linux0.11内存管理——try_to_share()
    2007413 20:46:00 linux0.11之copy_page_tables()函数见解
    POJ1258AgriNet
  • 原文地址:https://www.cnblogs.com/findumars/p/3541193.html
Copyright © 2011-2022 走看看