定义：不同的地理信息系统或地理信息系统与其他信息系统之间实施数据双向交换时采用的数据格式

引自百度百科

据百度百科上的描述数据交换这个词最早是在《地理信息系统名词》第二版，很明显不是用来做编程的。在编程方面数据交换格式仅仅是一种格式，当前主流使用的格式有 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