Delphi DataSet和JSON互转函数

一、DataSet转JSON

[delphi] view plain copy  print?

1. //1）数据集转换为JSON字符串：  
2. //需USES System.JSON;  
3.   
4. function DataSetToJson(ADataset: TDataSet): string;  
5. // [{"CityId":"18","CityName":"西安"},{"CityId":"53","CityName":"广州"}]  
6. var  
7.   LRecord: string;  
8.   LField: TField;  
9.   i: integer;  
10. begin  
11.   Result := '';  
12.   if (not ADataset.Active) or (ADataset.IsEmpty) then  
13.     Exit;  
14.   Result := '[';  
15.   ADataset.DisableControls;  
16.   ADataset.First;  
17.   while not ADataset.Eof do  
18.   begin  
19.     for i := 0 to ADataset.FieldCount - 1 do  
20.     begin  
21.       LField := ADataset.Fields[i];  
22.       if LRecord = '' then  
23.         LRecord := '{"' + LField.FieldName + '":"' + LField.Text + '"'  
24.       else  
25.         LRecord := LRecord + ',"' + LField.FieldName + '":"' + LField.Text + '"';  
26.       if i = ADataset.FieldCount - 1 then  
27.       begin  
28.         LRecord := LRecord + '}';  
29.         if Result = '[' then  
30.           Result := Result + LRecord  
31.         else  
32.           Result := Result + ',' + LRecord;  
33.         LRecord := '';  
34.       end;  
35.     end;  
36.     ADataset.Next;  
37.   end;  
38.   ADataset.EnableControls;  
39.   Result := Result + ']';  
40. end;  
41. 二、JSON转DataSet  //dataset需要先建立列字段
42. //2）JSON字符串转换为数据集：  
43.   
44. procedure JsonToDataSet(AJson: string; ADataset: TDataSet);  
45. var  
46.   jDataSet: TJSONArray;  
47.   jRecord: TJSONObject;  
48.   i, j: Integer;  
49. begin  
50.   if (AJson = '') or (ADataset = nil) or (not ADataset.Active) then  
51.     Exit;  
52.   jDataSet := TJSONObject.Create.ParseJSONValue(AJson, True) as TJSONArray;  
53.   while not ADataset.Eof do  
54.     ADataset.Delete;  
55.   for i := 0 to jDataSet.Size - 1 do  
56.   begin  
57.     ADataset.Append;  
58.     jRecord := jDataSet.Get(i) as TJSONObject;  
59.     for j := 0 to ADataset.FieldCount - 1 do  
60.       ADataset.Fields[j].Text := jRecord.GetValue(ADataset.Fields[j].FieldName).ToString;  
61.     ADataset.Post;  
62.   end;  
63. end;