如何在字符串网格中填充数据

Question

我不知道如何处理字符串，我想用数据填充它，我已经成功地用列表视图做到了 这是我填充列表视图的代码..

var
 LJSONArray : TJSONArray;
 LItem: TListViewItem;
  I: Integer;
 begin
 LJSONArray := TJSONArray.Create;
 try
 BackendStorage1.Storage.QueryObjects('ShoppingList', [], LJSONArray);
ListView1.ClearItems;
for I := 0 to LJSONArray.Count-1 do
begin
  LItem := ListView1.Items.Add;
  LItem.Text := (LJSonArray.Items[I].GetValue<string>('item'));
end;
finally
LJSONArray.Free;
end;
end;

Answer 1

要将项目添加到TStringGrid，您必须先设置其RowCount 属性，然后使用其Cells 属性填充它们，例如：

var
  LJSONArray : TJSONArray;
  I: Integer;
begin
  LJSONArray := TJSONArray.Create;
  try
    BackendStorage1.Storage.QueryObjects('ShoppingList', [], LJSONArray);
    StringGrid1.RowCount := LJSONArray.Count;
    for I := 0 to LJSONArray.Count-1 do
    begin
      StringGrid1.Cells[0, I] := LJSonArray.Items[I].GetValue<string>('item');
    end;
  finally
    LJSONArray.Free;
  end;
end;

确保您已预先将网格的ColumnCount 属性设置为至少 1，例如在设计时。