我正在尝试在Delphi中创建一个多设备应用程序。我已经将我的TStringGrid放在窗体上。列数增加到4。我有一个包含4个元素的字符串列表List3。 List3确实包含数据。

StringGrid1.Cells[0,0] := 'adc';
StringGrid1.cells[1,0] := 'efg';
StringGrid1.Cells[2,0] := 'hij';

for n1 := 1 to p2-1 do
begin
    StringGrid1.Cells[3,n1] := Trim(List3[0]);
    StringGrid1.cells[0,n1] := Trim(List3[1]);
    StringGrid1.Cells[1,n1] := Trim(List3[2]);
    StringGrid1.Cells[2,n1] := Trim(List3[3]);
end


StringGrid1中没有数据显示。既不对第0行进行硬编码,也不对for循环进行动态编码。

最佳答案

Tstringgrid没有填充,因为我处于USB调试模式。与计算机断开连接并执行apk后,网格将正确填充。

07-27 20:42