Delphi 将 StringGrid 中的数据保存到 Json 文件

Question

我有一个 stringGrid，第一行中的字段来自 CSV，第二行中的字段是来自数据库中 table 的 ColumnNames。

现在点击保存按钮后，它应该会为我创建一个 Json 文件，如下所示

{
"GHARGA": "GHARGA",
"SELLINGPRICE1": "SELLPRICE1",
"SELLPRICE2": "SELLPRICE2",
"SELLPRICE3": "SELLPRICE3",
"PCODE": "PCODE"
}

我这样试过：

 procedure TfrmMapping.btnsaveClick(Sender: TObject);
var
  Dat1: TStringList;
  i: Integer;
  lJsonObj: TJSONObject;
begin
  lJsonObj := TJSONObject.Create;

  Dat1 := TStringList.Create;

  if btnsave.Caption = 'Save' then
  begin
     for i := 0 to StrGrdCsv.RowCount - 1 do
     begin
     Dat1.AddStrings(StrGrdCsv.Rows[i]);
     end;

    for i := Dat1.Count - 1 Downto StrGrdCsv.ColCount do
    begin
      lJsonObj.AddPair(TJSONPair.Create(TJSONString.Create(Dat1.Strings[i]),
      TJSONString.Create(Dat1.Strings[i])));
    end;

    TFile.WriteAllText(cmbBXDBTables.Text + '.json', lJsonObj.ToString);
    btnsave.Caption := 'Load Data';
      end;
      end;

但它正在创造

 {
    "GHARGA": "GHARGA",
    "SELLPRICE1": "SELLPRICE1",
    "SELLPRICE2": "SELLPRICE2",
    "SELLPRICE3": "SELLPRICE3",
    "PCODE": "PCODE"
     }

Answer 1

根据@DavidHeffemann 和@RemyLeebeau 的建议修改了代码

procedure TfrmMapping.btnsaveClick(Sender: TObject);
var
  i: Integer;
  lJsonObj: TJSONObject;
begin
  lJsonObj := TJSONObject.Create;

  if btnsave.Caption = 'Save' then
  begin
    for i := 0 to StrGrdCsv.ColCount do
    begin
      lJsonObj.AddPair(StrGrdCsv.Cells[i, 0], StrGrdCsv.Cells[i, 1]);
    end;
    TFile.WriteAllText(cmbBXDBTables.Text + '.json', lJsonObj.ToString);
    btnsave.Caption := 'Load Data';
  end;
end;

修改了 For 循环并使其使用字符串网格单元格工作。

谢谢@DavidHeffemann 和@RemyLeebeau 的建议。

Delphi 将 StringGrid 中的数据保存到 Json 文件

Delphi save data in StringGrid to Json file

json

delphi-xe5