Delphi练习——StringGrid的使用（九九乘法表）

PAS：

unit U_StringGrid;

interface

uses
  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
  Dialogs,StdCtrls,Grids;

type
  TfrmEinmaleins = class(TForm)
    lblEinmaleins: TLabel;
    strngrdEinmaleins: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmEinmaleins: TfrmEinmaleins;

implementation

{$R *.dfm}

procedure TfrmEinmaleins.FormCreate(Sender: TObject);
var
  i,j: Integer;
begin
  //设置行、列标题
  strngrdEinmaleins.Cells[0,0] := '*';
  for i := 1 to 9 do
  begin
    strngrdEinmaleins.Cells[i,0] := IntToStr(i);
    strngrdEinmaleins.Cells[0,i] := IntToStr(i);
  end;
  //计算九九乘法
  for i := 1 to 9 do
  begin
    for j := 1 to 9 do
    begin
      strngrdEinmaleins.Cells[i,j] := IntToStr(i * j);
    end;
  end;
end;

end.

DFM：

object frmEinmaleins: TfrmEinmaleins
  Left = 389
  Top = 193
  Width = 672
  Height = 346
  Caption = #20061#20061#20056#27861#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lblEinmaleins: TLabel
    Left = 224
    Top = 8
    Width = 201
    Height = 41
    AutoSize = False
    Caption = #20061#20061#20056#27861#34920
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object strngrdEinmaleins: TStringGrid
    Left = 6
    Top = 52
    Width = 653
    Height = 253
    ColCount = 10
    RowCount = 10
    TabOrder = 0
    ColWidths = (
      64
      64
      64
      64
      64
      64
      64
      64
      64
      64)
  end
end

截图：