1 是FXM而不是XM
TPerson = class
private
FXM: string;
FNL: integer;
public
property XM: string read XM write FXM;
preperty NL: integer read FNL write FNL;
end;Marshal后的JSON是 .."FXM":"XXX"; "FNL": 99..
当把 {"nl":99,"xm":"张三"} UnMarshal为TPerson的时候,就转不过去了。
2 区分大小写
JSONObject.Get('xm').JsonValue; 返回一个TJSONValue的值。
Get('xm')--xm是区分大小写的。
TPerson = class
private
FXM: string;
FNL: integer;
public
property XM: string read XM write FXM;
preperty NL: integer read FNL write FNL;
end;Marshal后的JSON是 .."FXM":"XXX"; "FNL": 99..
当把 {"nl":99,"xm":"张三"} UnMarshal为TPerson的时候,就转不过去了。
2 区分大小写
JSONObject.Get('xm').JsonValue; 返回一个TJSONValue的值。
Get('xm')--xm是区分大小写的。
解决方案 »
- 如何使某个程序的子窗口或对话框 显示之前将它隐藏?
- delphi高手请进来看看代码那里有问题
- dbexpsda -- dbExpress for SQL Server 4.20问题,知道的兄弟说一下
- 问个简单问题 将一条记录 拆分成几条记录存储
- 如何在cxGrid中实现在某个单元格输入数据,其它若干单元格也自动输入相同的内容?
- 类型转换和拼SQL语句串
- 求助:如何检测文件夹下文件的变化??
- TShockwaveFlash控件问题?
- 关于主从报表
- 一个RealPlayer ActiveX的问题,会的近来帮帮我呀!
- Delphi控制台如何覆盖输出?
- lisview中,点中或上下移动里面的内容时,为什么会有声音?
在我的老本本上测试, 返回TDataSet用4秒+. 返回Reader是1秒+. (注:是本地机测试)