Delphi 是一款高效的編程工具，可以輕松地通過控件值生成 JSON 數(shù)據(jù)格式。JSON 是一種輕量級的數(shù)據(jù)交換格式，易于閱讀和編寫，逐漸被廣泛應(yīng)用于 Web 應(yīng)用程序和 API 的數(shù)據(jù)傳輸。

procedure TForm1.Button1Click(Sender: TObject);
var
json: TJSONObject;
jsonObj: TJSONObject;
jsonArray: TJSONArray;
begin
json := TJSONObject.Create;
try
// 添加簡單屬性
json.AddPair('author', 'Delphi Programer');
json.AddPair('language', 'Delphi');
json.AddPair('year', '2021');
// 添加對象屬性
jsonObj := TJSONObject.Create;
try
jsonObj.AddPair('title', 'Delphi學(xué)習(xí)之路');
jsonObj.AddPair('pages', '200');
json.AddPair('book', jsonObj);
finally
jsonObj.Free;
end;
// 添加數(shù)組屬性
jsonArray := TJSONArray.Create;
try
jsonArray.Add('Delphi 7');
jsonArray.Add('Delphi XE');
jsonArray.Add('Delphi Tokyo');
json.AddPair('versions', jsonArray);
finally
jsonArray.Free;
end;
// 輸出 JSON 數(shù)據(jù)
Memo1.Lines.Text := json.ToString;
finally
json.Free;
end;
end;

上述代碼演示了如何使用 Delphi 的 TJSONObject、TJSONArray 類來創(chuàng)建 JSON 數(shù)據(jù)。假設(shè)需要將表單中的數(shù)據(jù)保存為 JSON 格式：

procedure TForm1.SaveToJson;
var
json: TJSONObject;
begin
json := TJSONObject.Create;
try
json.AddPair('name', edtName.Text);
json.AddPair('age', edtAge.Value.ToString);
json.AddPair('email', edtEmail.Text);
json.AddPair('gender', cbdGender.Items[cbdGender.ItemIndex]);
Memo1.Lines.Text := json.ToString;
finally
json.Free;
end;
end;

這里使用了 TEdit、TComboBox 等控件中的值來構(gòu)造 JSON 數(shù)據(jù)。需要注意的是，如果控件中的值為數(shù)組或?qū)ο螅梢酝ㄟ^逐層嵌套的方式來添加屬性。