随机四则法运算问题

西湖十月夜 2021-3-19 237

第一次点没问题  乘法 加法都这样  10以上 第二次点就有问题了  多了等号啥的  这个有什么解决方法吗? 

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
Randomize;
for I := 1 to 10 do begin
Canvas.TextOut(20,I*20,
IntToStr(Random(9)+1)+'×'+IntToStr(Random(9)+1)+'=');
Canvas.TextOut(220,I*20, 
IntToStr(Random(100))+'+'+IntToStr(Random(100))+'=');
end;
end;




DelphiTop论坛申明 1、本网站名称:DelphiTop论坛  网址:www.DelphiTop.com
2、专注于互联网分享精神,专注收藏与分享。你薅网友,我就薅你。
3、本站资源,如发现链接失效,可联系QQ 16643506进行反馈,我们会第一时间更新。
最新回复 (2)
  • smkf225 2021-3-19 0
    2
    代码没有问题。
    你就是上次的 Textout的没有清除,意思是重叠了。
    可以给它加个底色。
      Canvas.Brush.Color := clwhite; 
      Canvas.FillRect(Canvas.ClipRect);
  • 西湖十月夜 2021-3-19 0
    3
    谢谢  小白一个 学习中
返回