12 2019 档案

摘要:uses superobject; procedure TForm1.FormCreate(Sender: TObject); var aJson: ISuperObject; aSuperArray: TSuperArray; i:Integer; begin {1、赋初值} aJson:=SO( 阅读全文
posted @ 2019-12-23 09:09 南国之恋 阅读(2130) 评论(0) 推荐(0) 编辑
摘要:Java、Php等语言中都有成熟的框架来解析Json数据,可以让我们使用很少的代码就把格式化好的json数据转换成程序可识别的对象或者属性,同时delphi中也有这样的组件来实现此功能,即IsuperObject。如果还没有这个组件的请在网上搜索下载或者在下面留言处留下你的邮箱向本人索取。 下面先说 阅读全文
posted @ 2019-12-23 09:07 南国之恋 阅读(1394) 评论(0) 推荐(0) 编辑
摘要:保存可以用下面的方法 var Stream: TMemoryStream; begin Stream := TMemoryStream.Create; jitems.SaveTo(Stream); Stream.Position := 0; TBlobField(FieldByName('DATA_ 阅读全文
posted @ 2019-12-20 15:15 南国之恋 阅读(637) 评论(0) 推荐(0) 编辑
摘要:Json是一种轻量级数据传输格式,广泛应用互联网和各应用中,json主要采用键值对来表示数据项,多个数据项之间用逗号分隔,也可以用于数组。下面注重介绍一下在delphi中使用json,在delphi中使用json常用superobject单元文件,该文件可以在网上下载,最初接触json是在2011年 阅读全文
posted @ 2019-12-20 15:08 南国之恋 阅读(3848) 评论(0) 推荐(0) 编辑