Delphi 6 下支持 json 数据格式

　　我打算写的系列文章暂定为《从零开始学习互联网开发技术》，百度了一下貌似没有同名文章，现在只有零星的一些笔记，估计也只有我才能看得懂，需要重新整理一下，否则发上来是不负责任的。在整理之前，先把自己近期写的一个Delphi 6下的json类发出来分享一下。

　　上个月，我们一个产品需要增加一个Windows下的程序，部门里能做Windows程序开发的很少了，于是任务就落在我头上。其实我也很长时间没有开发Windows程序了，手上现成的开发工具就是十来年前的Delphi 6，也不想花太大力气搞这个，折腾了一下在我的Win 7安装好Delphi 6就开始开发了。这个程序与服务端通讯要求的格式是json，在json官网和GitHub找了一轮，没有发现支持Delphi 6的json库，没办法，只能自己写吧。

　　花了两三天时间写好，在使用过程中只发现一个bug，看来代码质量这个基本功还是没有丢掉。

　　json的语法比较简单，代码就是按照官网的语法说明采用纯原生Object pascal编写，仅仅使用了TList、TStrings和TStringList三个类，引入了一个类似PHP关联数组不需显式增加数组项的特性，使用也很方便，具体怎么实现就不罗嗦了，具体可以看源代码：https://github.com/rilyu/json4delphi 。

　　使用方法示例：

var
  Json: TJson;
  Str: String
begin
  Json :=