全局变量
iCount:integer;
timer定时起始
timer.enabled:=True;
procedure TMy.timerontime(sender:tobject);
begin
//在这里写什么可以让timer被创建5秒以后free这个属于TMy的对象自己呢?
Inc(iCount);
if icount*timer.interval>5000 then
begin
timer.enabled:=fslse;
timer.free;
end;
end;
iCount:integer;
timer定时起始
timer.enabled:=True;
procedure TMy.timerontime(sender:tobject);
begin
//在这里写什么可以让timer被创建5秒以后free这个属于TMy的对象自己呢?
Inc(iCount);
if icount*timer.interval>5000 then
begin
timer.enabled:=fslse;
timer.free;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货