方描述

Unit that implements generic container classes to group data items in arrays, dictionaries, lists, stacks, queues, and more.

譯文：實現泛型容器類的單元，以在數組中對數據項進行分組，詞典，列表，堆棧，隊列等。

起初在接觸到Delphi的時候我以為沒有這一部分內容，所有的都要自己實現，此處請原諒我的無知。。。。

關于從那個版本開始支持泛型的，我在官方文檔上沒有找到對應的說明，也可能是我英語太菜，在官網迷路了。

根據百度得來的結果2007的版本沒有（真百度的）支持2009的版本（萬一老師的博客上引用的也是這個版本）開始出現，也就是最早支持泛型容器的版本應該是Delphi2009

聊泛型容器避不開的就是泛型的概念，之前看嗶哩嗶哩的網友留言從泛型一節就是開始懵逼了。其實大可不必，泛型可以理解為一個變量，它的值是一個具體的類型

嗯，其實也可以把它當作孫大圣，它可以變成任何東西

Collections單元

在這個單元內一共定義了13個容器類，我們在其中甚至可以看到線程隊列。那么問題來了，我們需要精通或者學習所有的類嗎？答案是否定的

容器類就我個人的理解其實一共有兩大表現形式，一種是列表形式的像數組，而另一種形式則以 Key,Value 成對的形式。也就是說我們從中選擇兩個比較有代表性的類進行學習即可。下面是我選擇的兩個類

• System.Generics.Collections.TList：很明顯這個是列表
• System.Generics.Collections.TDictionary：Dictionary這個單詞翻譯成中文是字典的意思，不知道為啥這么起名，它是K,V形式的代表

注意：在單元內我們還可以看到相似的類例如 System.Generics.Collections.TObjectList<T> 和 System.Generics.Collections.TList<T>區別在于帶有Object的類會在刪除元素時釋放對象，而沒有帶Object的不會釋放

API代碼

針對容器類學習的總原則是圍繞增、刪、改、查這幾個核心的API功能即可，其他的就只能現用現查了，不知道別人寫代碼是什么習慣，我寫代碼的時候幫助文檔基本上都是開著的。。。

下面是針對兩個容器類的代碼實現

TList

實體類（TStudent）代碼

type

    TStudent=class
    private
        FName: string;
    public
        property Name: string read FName write FName;
        // 構造方法
        constructor Create; overload;
        // 有參構造方法
        constructor Create(FName: string); overload;
    end;

constructor TStudent.Create;
begin

end;

constructor TStudent.Create(FName: string);
begin
    Self.FName :=FName;
end;

操作類（即增、刪、改、查），我沒有使用內聯，幾次想用都刪了

uses
    System.Generics.Collections, System.SysUtils;

var
    // 文檔上的定義是TList<T>，而我們的定義尖括號中的是TStudent,這就是泛型的用法
    StudentList: TList<TStudent>;
    // 循環中使用獲取TList成員
    Stu: TStudent;

begin
    // 初始化學生列表
    StudentList :=TList<TStudent>.Create;
    StudentList.add(TStudent.Create('小強'));
    StudentList.add(TStudent.Create('蕭薔'));
    StudentList.add(TStudent.Create('小黑'));
    StudentList.add(TStudent.Create('小白'));
    StudentList.add(TStudent.Create('小黃'));

    // 開始之前輸出一次
    for Stu in StudentList do begin

        Writeln('學生信息是：' + Stu.Name);
    end;

    // 泛型容器自帶的刪除函數，偷個懶
    StudentList.Delete(0);

    // 修改，查詢到指定的學生，修改其值即可
    StudentList.Items[0].Name :='小白';


    // 查詢，其實和數組的操作沒有太大區別
    for Stu in StudentList do begin

        Writeln('學生信息是：' + Stu.Name);
    end;

end.

TDictionary

此類容器的特點是 key 唯一，并且幾乎所有的操作都是根據 key 來的

改造下實體類（TStudent）增加一個屬性，代碼如下

type

    TStudent=class
    private
        FName: string;
        FId: string;
    public
        property Name: string read FName write FName;
        property Id: string read FId write FId;

        // 構造方法
        constructor Create; overload;
        // 有參構造方法
        constructor Create(FName: string; FId: string); overload;
    end;

constructor TStudent.Create;
begin

end;

constructor TStudent.Create(FName: string; FId: string);
begin
    Self.FName :=FName;
end;

操作類（即增、刪、改、查）

{注意單元的引用}
uses
    System.Generics.Collections, System.SysUtils;

var
    // 文檔上的定義是TList<T>，而我們的定義尖括號中的是TStudent,這就是泛型的用法
    StudentMap: TDictionary<string, TStudent>;
    // 循環中使用獲取TList成員
    Key: string;
    Student,Stu: TStudent;

begin
    // 初始化學生列表
    StudentMap :=TDictionary<string, TStudent>.Create;
    // 此處的添加其實并不是太好，根據文檔描述，當我們添加的元素的key已經存在會拋出異常
    // 建議使用AddOrSetValue
    StudentMap.add('1001', TStudent.Create('1002', '小強'));
    StudentMap.add('1002', TStudent.Create('1001', '蕭薔'));
    StudentMap.add('1003', TStudent.Create('1003', '小黑'));
    StudentMap.add('1004', TStudent.Create('1004', '小白'));
    StudentMap.add('1005', TStudent.Create('1004', '小黃'));

    // 注意此處獲取是key,也就是1001 1002這些東西
    for Key in StudentMap.Keys do begin

        // 獲取到key之后，再根據key獲取對應value也就是學生對象
        // 這里的獲取方式有點兒任性居然要的是一個指針，而不是直接返回
        StudentMap.TryGetValue(Key, Student);
        // 最好判斷一下，否則容易出現空指針
        if (Student <> nil) then
            Writeln('學生信息是：' + Student.Name)
    end;

    // 刪除元素，無論什么操作都是通過key去操作，因為key是不可以重復的
    StudentMap.Remove('1005');

    // 修改，沒有就添加，有就更新
    StudentMap.AddOrSetValue('1004', TStudent.Create('1004', '小黃'));

    // 直接獲取value
    for Stu in StudentMap.values do begin
        // 最好判斷一下，否則容易出現空指針
        if (Stu <> nil) then
            Writeln('學生信息是：' + Student.Name)

    end;
end.

參考資料

萬一的博客：https://www.cnblogs.com/del/category/113556.html

官方文檔：http://docwiki.embarcadero.com/Libraries/Sydney/en/System.Generics.Collections

義：不同的地理信息系統或地理信息系統與其他信息系統之間實施數據雙向交換時采用的數據格式

引自百度百科

據百度百科上的描述數據交換這個詞最早是在《地理信息系統名詞》第二版，很明顯不是用來做編程的。在編程方面數據交換格式僅僅是一種格式，當前主流使用的格式有 3 種 ： XML、JSON、YAML

既然是一種格式，那么它就需要標準，因為通過標準可以限定各個格式中的具體內容

XML

XML（全稱EXtensible Markup Language）,在我看來它是一種古老的數據交換格式，因為從我接觸到編程開始它就已經存在了

標準所在網址：https://www.w3.org/TR/1998/REC-xml-19980210

最新文檔地址：https://www.w3.org/TR/REC-xml/

其實XML的標準一直是1.0，至少我沒有見過其他的，一般情況下我們在編寫XML文檔的時候都需要遵循一個約束文件，這個約束文件中規定了你可以編寫的內容。約束文件存在的方式也有兩種，原來是 DTD 格式現在主流的是 Schema

XML 如果想完整的學習還是比較費勁的，不過一般情況下要求約束文檔能看懂，XML內容會編寫即可

參考網址：https://www.w3school.com.cn/x.asp

Delphi解析可使用 TXMLDocument（Delphi自帶），此外也可以使用微軟的 MSXML2 我沒有這種需求所以并沒有深入研究

官方文檔：http://docwiki.embarcadero.com/Libraries/Sydney/en/Xml

JSON

JSON(JavaScript Object Notation) 是一種輕量級的數據交換格式。相比于XML格式JSON更為簡單明了

標準文檔地址：http://www.json.org/json-zh.html

具體的語法規則可以參考上面網址的文檔內容，中文的

Delphi官方（當前最新版本DelphiXE10.4.2）已經支持對于JSON的解析了，官方文檔地址

http://docwiki.embarcadero.com/Libraries/Sydney/en/System.JSON

需要注意的是有些類是Tokyo 10.2新增的，在使用的時候需要檢查一下自己的版本

YAML

YAML （全稱YAML Ain’t Markup Language），YAML不是標記語言的意思，YAML是便于人閱讀基于unicode 編碼的各種語言的序列號標準。

YAML語言的設計參考了JSON，XML和SDL等語言。YAML 強調以數據為中心,簡潔易讀,編寫簡單

官網地址：http://yaml.org

一個讓人頭皮發麻的站點

學習的話可以參考 阮一峰 老師的博客內容，地址：https://www.ruanyifeng.com/blog/2016/07/yaml.html

沒有找到官方支持，不過在GitHub上有一個開源庫是支持Delphi解析YAML格式數據的，有興趣的朋友可以去研究

地址：https://github.com/neslib/Neslib.Yaml

最后我想說我非常討厭這種數據格式，和python一樣依靠縮進和空格控制語法。。。

JSON解析案例

將原來視頻中講解的代碼在DelphiXE10.4.2上進行了重構

uses
    System.JSON, System.Generics.Collections, System.JSON.Serializers,
    System.SysUtils;

type
    { 實體類，主要是用于JSON字符串和類對象的互相轉換 }
    TStudent=class(TObject)
    private
        FName: string;
        FAge: Integer;
    public
        property Name: string read FName write FName;
        property Age: Integer read FAge write FAge;
        constructor Create; overload;
        constructor Create(FName: string; FAge: Integer); overload;

    end;

constructor TStudent.Create;
begin

end;

constructor TStudent.Create(FName: string; FAge: Integer);
begin
    Self.FName :=FName;
    Self.FAge :=FAge;
end;

begin
    { 定義一個JSON字符串 }
    var
    UserJson :='{"FName":"小黑","FAge":18}';
    { 創建序列化對象 }
    var
    Serializer :=TJsonSerializer.Create();

    { 反序列化，其實就將字符串轉為對象 }
    var
    Student :=Serializer.Deserialize<TStudent>(UserJson);
    Writeln('反序列化：' + Student.Name + ',' + Student.Age.ToString);

    { 列表轉換，將TLIst容器轉為字符串，也可以說是數組轉換 }

    var
    List :=TList<TStudent>.Create;
    List.Add(TStudent.Create('小白', 30));
    List.Add(TStudent.Create('蕭薔', 30));
    // 創建序列化對象
    Serializer :=TJsonSerializer.Create();

    Writeln('序列化：' + Serializer.Serialize < TList < TStudent >> (List));

    var
        { 一個比較復雜的json字符串 }
    Users :='{"FListHelper":{"FCount":2},"FItems":[{"FName":"小白","FAge":30},{"FName":"蕭薔","FAge":30}],"FComparer":{}}';
    // 創建序列化對象
    Serializer :=TJsonSerializer.Create();
    { 可以嘗試下這里會不會有問題，當字段匹配時居然可以直接轉換 }
    var
    UserList :=Serializer.Deserialize < TList < TStudent >> (Users);

    for var Stu in UserList do begin
        Writeln('反序列化：' + Stu.Name + ',' + Stu.Age.ToString);
    end;

    { 獲取指定字段 }
    Writeln(TJSONObject.ParseJSONValue(Users).GetValue<TJSONObject>
      ('FListHelper').GetValue<string>('FCount'));

    Writeln(TJSONObject.ParseJSONValue(Users).GetValue<TJSONArray>('FItems')
      .Count.ToString);

    Readln;

end.

其實Delphi自帶的JSON解析已經夠用了，如果不能滿足你的話有一個開源庫你可以嘗試，不過我看它最近一次更新代碼是 3 年前....

Github地址：https://github.com/hgourvest/superobject

學習資料（萬一老師的博客）：https://www.cnblogs.com/del/category/215158.html