解决方案 »
- delphi 的dbgrid控件, properties栏中找不到 fields属性、、、怎么回事啊?
- 如何导出别的程序里DBGRID中的数据??
- 一个非常让人费解的问题
- 各位大虾,我想用delphi产生一个10位的随机密码,密码中有英文也有中文,我忘记用什么函数?
- 从内存中取出85656(10进制),确定这是表示时间,请问这是什么时候?
- 在函数中使用result:=类.create,用完后怎么来释放该内存呢?
- 请教如何让另一个程序的窗体显示在屏幕的最前端
- 新手学DELPHI,看什么书好?
- DELPHI在DOS下的连接和编译命令是什么?
- 我应该怎么做?
- 奇怪的Delphi2007,怎么有两个窗口?
- 深夜求助一个Adoquery互相间复制的问题
var
json: TJSONObject;
jarr: TJSONArray;
list: TStringList;
I: Integer;
begin
list := TStringList.Create;
jarr := TJSONArray.Create;
json := TJSONObject.Create;
try
for I := 0 to 10 do
list.Add(IntToStr(I)); //初始化List for I := 0 to list.Count - 1 do
jarr.Add(list.Strings[I]); json.AddPair('data',jarr); //将jarr 此数组保存至一个对象中 ShowMessage(json.ToString);
finally
list.Free;
json.Free;
end;