Delphi 是一种非常受欢迎的编程语言，可以用于创建各种类型的应用程序。其中，使用 json 数据来存储和交换数据已成为一种趋势。 Delphi 提供了一些工具来读取和写入 json 数据，下面将演示如何将数据存储为 json 格式。

procedure TForm1.SaveToJsonFile(const AFileName: string);
var
jsonObject: TJSONObject;
begin
jsonObject := TJSONObject.Create;
try
jsonObject.AddPair(TJSONPair.Create('name', Edit1.Text));
jsonObject.AddPair(TJSONPair.Create('age', StrToInt(Edit2.Text)));
jsonObject.AddPair(TJSONPair.Create('gender', ComboBox1.Text));
TFile.WriteAllText(AFileName, jsonObject.ToJSON);
finally
jsonObject.Free;
end;
end;

该代码将数据存储为 json 格式，并将其写入指定的文件。首先，创建一个 TJSONObject 实例，然后使用 AddPair() 方法添加键值对。 toJson() 方法将对象转换为 json 格式字符串，最后使用 TFile 类将数据写入文件。

下面的代码显示如何将 json 数据读取为 Delphi 对象：

procedure TForm1.LoadFromJsonFile(const AFileName: string);
var
jsonObject: TJSONObject;
begin
jsonObject := TJSONObject.ParseJSONValue(TFile.ReadAllText(AFileName)) as TJSONObject;
try
Edit1.Text := jsonObject.GetValue('name').Value;
Edit2.Text := jsonObject.GetValue('age').Value;
ComboBox1.Text := jsonObject.GetValue('gender').Value;
finally
jsonObject.Free;
end;
end;

该方法将从指定的文件中读取 json 数据并将其转换为 TJSONObject 对象。 GetValue() 方法将获取与指定键对应的值，并将其设置为对象属性。最后，必须释放对象。

在实际应用中，存储和读取 json 数据是非常常见的操作。通过这些代码示例，您可以了解如何在 Delphi 中使用 json 数据存储编码非常方便。