 |
看看帮助中的Cells属性。下面的例子用数字填充每个单元：
procedure TForm1.Button1Click(Sender: TObject);
var
I, J, K : Integer;
begin
K := 0;
with StringGrid1 do
for I := 0 to ColCount - 1 do
for J:= 0 to RowCount - 1 do
begin
K := K + 1;
Cells[I,J] := IntToStr(K);
end;
end;
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Delphi, VCL, Borland, DBGrid, dbgrid, dbcombo。
|
TStringGrid中的单元格，如何用程序语句取值和赋值
