网站首页
编程语言
数据库
系统相关
其他分享
编程问答
TJsonObject
2024-07-04
数据集转换JSON
procedureTForm1.DataSetToJSON(DataSet:TDataSet);varJSONObject:TJSONObject;JSONArray:TJSONArray;JSONItem:TJSONObject;i:integer;beginJSONArray:=TJSONArray.Create;//创建JSON数组//创建后不需要释放free(会自动释放),如果操作释放free动作会报错whilenot
2024-06-03
学习unigui【27】像pg的jsonb一样编辑json。
varI:Integer;CurrentObject:TJSONObject;FieldName:string;Pair:TJSONPair;functionCreateJSONValueForVariant(constaValue:Variant):TJSONValue;begincaseVarType(aValue)ofvarInteger:Result:=TJSONNumber.Create(Integer(aVal