Delphi 将 StringGrid 中的数据保存到 Json 文件
Delphi save data in StringGrid to Json file
我有一个 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"
}
根据@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 的建议。
我有一个 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"
}
根据@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 的建议。