实例三 显示乘法口诀表
作者:互联网
procedure TForm1.BitBtn1Click(Sender: TObject); var i,j:Integer; begin for i := 1 to 9 do for j := 1 to 9 do StringGrid1.Cells[i,j]:=IntToStr(i*j); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin Close; end; procedure TForm1.FormCreate(Sender: TObject); var i:Integer; begin for i := 1 to 9 do begin StringGrid1.Cells[0, i] := IntToStr(i); StringGrid1.Cells[i, 0] := IntToStr(i); end; end;
下载地址:
https://files.cnblogs.com/files/blogs/664406/%E5%AE%9E%E4%BE%8B3.rar
标签:do,begin,end,Sender,口诀,IntToStr,TObject,实例,乘法 来源: https://www.cnblogs.com/51delphi/p/14616419.html