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

Question

我有一个 stringGrid，第一行中的字段来自 CSV，第二行中的字段是来自数据库表的 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 循环并使其使用 String Grid 的 Cells 工作。

谢谢@DavidHeffemann 和@RemyLeebeau 的建议。