用delphi编写乘法口诀表

界面中显示乘法口诀表的控件为Memo，点击按钮后显示乘法口诀表。

补充：帮忙给下代码
		

答案：
给你按钮的单击事件代码应该可以了吧。
procedure TForm1.Button1Click(Sender: TObject);
Var
   i,j:Integer;
   TempStr:String;
begin
   TempStr:='';
   for i:=1 to 9 do
   begin
     for j:=1 to i do
       TempStr:=TempStr+'  '+IntToStr(i)+'×'+IntToStr(j)+'='+IntToStr(i*j) ;
       Memo1.Lines.Add(TempStr);
       TempStr:='';
   end;
end;

效果如下图。

上一个：delphi 函数的定义与使用
下一个：怎么样用Delphi创建快捷方式