九九乘法表,快速结贴

Question

for i:=1 to 9 do
         for j:=1 to i do
            memo1.Lines.Add(inttostr(i)+'*'+inttostr(j)+' ');
怎么才能使这个换行了?

Answer 1

for i:=1 to 9 do
   for j:=1 to i do
   if j<i then
      memo1.Lines.Add(inttostr(i)+'*'+inttostr(j)+'=' +inttostr(i*j) +' ')
   else
      memo1.Lines.Add(inttostr(i)+'*'+inttostr(i)+'=' +inttostr(i*j) +' '+#13#10)

Answer 2

每  memo1.Lines.Add  一次，它dou会换行

Answer 3

for i:=1 to 9 do
    begin
      for j:=1 to i do
      begin
          str:=inttostr(i)+'*'+inttostr(j)+'='+inttostr(i*j);
          Memo1.Text:=Memo1.Text+Str+'     ';      end;
      Memo1.Text:=Memo1.Text+#13+#10;
    end;结果：
1*1=1     
2*1=2     2*2=4     
3*1=3     3*2=6     3*3=9     
4*1=4     4*2=8     4*3=12     4*4=16     
5*1=5     5*2=10     5*3=15     5*4=20     5*5=25     
6*1=6     6*2=12     6*3=18     6*4=24     6*5=30     6*6=36     
7*1=7     7*2=14     7*3=21     7*4=28     7*5=35     7*6=42     7*7=49     
8*1=8     8*2=16     8*3=24     8*4=32     8*5=40     8*6=48     8*7=56     8*8=64     
9*1=9     9*2=18     9*3=27     9*4=36     9*5=45     9*6=54     9*7=63     9*8=72     9*9=81