如何在delphi中将值动态添加到TStringGrid的单元格中？

在这种情况下，我可以动态创建行，但无法将数组的值插入单元格

试试类似的方法：

proedure TForm5.ButtonClick(Sender:TObject);
var
  I, J: Integer;
const
  MyArray: array [1..5] of string = ('Siva', 'jindal', 'ram', 'kesu', 'Srinu ');
begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  for J := 1 to length(MyArray);
  for I := 0 to
    StringGrid1.Cells[I,StringGrid1.RowCount-1] := MyArray[J];

  StringGrid1.Row := StringGrid.RowCount-1;
end;

---

此代码甚至没有编译？第二个循环中有一个错误，即网格有多少列？我认为在

begin

和

end

之间发布的四行代码中，有三行应该有错误，而这三行中有两行包含错误，会阻止代码编译。因此，这不是你真正的代码。如果您希望我们帮助您找出代码不起作用的原因，请发布代码。边做边补会导致引入新的错误（这显然发生在这里，在一个极端的例子中），并可能隐藏实际问题。在这里发布像你这样的胡说八道根本没用。

procedure TForm5.ButtonClick(Sender: TObject);
const
  MyArray: array[1..5] of string = ('Siva', 'jindal', 'ram', 'kesu', 'Srinu ');
var
  I, Row: Integer;
begin
  Row := StringGrid1.RowCount;
  StringGrid1.RowCount := Row + 1;
  for I := Low(MyArray) to High(MyArray) do
    StringGrid1.Cells[I-1, Row] := MyArray[I];
  StringGrid1.Row := Row;
end;