问题遇到的现象和发生背景
在学delphi,怎么让delphi的label控件动态的显示数字,实时的去显示每一次循环结果,比如下面代码,在程序运行时让数字动起来,而不是运行结束直接从0变成最终结果。
问题相关代码,请勿粘贴截图
Label6.Caption := (IntToStr(TCountThread(Sender).FiSumBit));
FiSumBit:= FiSumBit + CountBits(str[ia]):
在学delphi,怎么让delphi的label控件动态的显示数字,实时的去显示每一次循环结果,比如下面代码,在程序运行时让数字动起来,而不是运行结束直接从0变成最终结果。
Label6.Caption := (IntToStr(TCountThread(Sender).FiSumBit));
FiSumBit:= FiSumBit + CountBits(str[ia]):