Delphi中StringGrid控件如何添加数据？

Posted 2023-03-16

不用读数据库..自己添加数据..

参考技术A procedure TForm1.StringGrid1Click(Sender: TObject);
var
i,j:Integer;
begin
StringGrid1.ColCount := 128;
StringGrid1.RowCount := 128;
for i:= 34 to StringGrid1.ColCount do
begin
StringGrid1.Cells[i-33,0]:= IntToStr(i-33);
StringGrid1.ColWidths[i-33] := StringGrid1.Canvas.TextWidth(' 宽 ')
end;

for j:= 34 to StringGrid1.RowCount do
begin
StringGrid1.Cells[0,j-33]:= IntToStr(j-33);
end;

for j:= 34 to StringGrid1.RowCount do
for i:= 34 to StringGrid1.ColCount do
StringGrid1.Cells[i-33,j-33]:= Chr(j+127)+ chr(i+127);
end;

单击StringGrid时触发的事件。 参考技术B var
i,j:integer; //i为列 ,j为行
begin
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
stringgrid1.Cells[i,j]:=inttostr(i)+''''+inttostr(j);
end;
end;
end;