怎样用Delphi做个可以显示99乘法表的程序？求教啊！！

答案：procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
begin
  memo1.Lines.Clear;
  for i:=1 to 9 do
  begin
    for j:=1 to i do
      memo1.Text:=memo1.Text+inttostr(j)+'×' +inttostr(i)+'='+format('%-5d',[i*j]);
    memo1.Lines.Add(chr(13));
  end;
end;
运行结果：
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

其他：有三个方法，其中具体的做法你网上搜一下就可以了方法1：把窗体设成无边框你的方法也可以啊。我的想法是可以用JS，onkeyup事件，用户每输一个数字， 楼上的很不错!

上一个：DELPHI中创建网址那个控件在哪里?
下一个：求Delphi7教程？346355868@qq.com！谢谢！