方描述

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