设置一全局变量ii,保存赋值缎带Label的值。 使用TTimer,3秒钟执行一次。 var ii:integer; // 保存临时值 procedure TForm1.Timer1Timer(Sender: TObject); begin if i<>ii then begin Label1.Caption:=Inttostr(i); ii:=i; end; end;
var ii:integer; // 保存临时值 procedure TForm1.Timer1Timer(Sender: TObject); begin if i<>ii then begin Label1.Caption:=Inttostr(i); ii:=i; end; end;
5,392
社区成员
262,732
社区内容
加载中
试试用AI创作助手写篇文章吧