请教怎样用Delphi编写乘法口诀表，要显示成下面的格式：

1×1=1; 
1×2=2; 2×2=4; 
1×3=3; 2×3=6; 3×3=9; 
1×4=4; 2×4=8; 3×4=12; 4×4=16; 
1×5=5; 2×5=10; 3×5=15; 4×5=20; 5×5=25; 
1×6=6; 2×6=12; 3×6=18; 4×6=24; 5×6=30; 6×6=36; 
1×7=7; 2×7=14; 3×7=21; 4×7=28; 5×7=35; 6×7=42; 7×7=49; 
1×8=8; 2×8=16; 3×8=24; 4×8=32; 5×8=40; 6×8=48; 7×8=56; 8×8=64; 
1×9=9; 2×9=18; 3×9=27; 4×9=36; 5×9=45; 6×9=54; 7×9=63; 8×9=72; 9×9=81; 

你可以参考 C/C++的,
int i, j;
for(i=1; i<10; i++)
{
for(j=1; j<=i; j++)
{
cout << j << "X" <<  i << "=" << j*i << " ";
}
cout << endl;
}

Delphi好久没用, 也没测试环境,  在输出显示数据时恐怕要注意一些,  需要变换的写
不知道使用什么控件作为显示载体比较好 Label / Edit 的话 太小了, RichEdit ? 忘记了

使用stringgrid
设置stringgrid的行与列的count
利用cells[j,i]属性   注意:cells其列在前行在后

如不想下载，可看如下应用程序代码： unit multiple;

interface

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

type Tmulfrm = class(TForm) multiplegrid: TStringGrid; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;

var mulfrm: Tmulfrm;

implementation

{$R *.dfm}

procedure Tmulfrm.FormCreate(Sender: TObject); var i,j:integer; begin for i:=1 to 9 do for j:=1 to i do multiplegrid.Cells[j,i]:=inttostr(j)+'*'+inttostr(i)+'='+inttostr(i*j); end;

end.