S
skuk88
Unregistered / Unconfirmed
GUEST, unregistred user!
比如定时关机程序,Edit3.text里输入的是关机时间,那么能不能用现在时间减去关机时间得到这个计时的时间呢?我新加入一个timer控制输入如下代码:
procedure TForm1.Timer4Timer(Sender: TObject);
var i,j:integer;
begin
i:=strtoint(edit3.Text);
j:=strtoint(timetostr(now));
if timer3.Enabled=true then
label9.Caption :=inttostr(j-i);
运行1秒就会出错~~救命啊!
procedure TForm1.Timer4Timer(Sender: TObject);
var i,j:integer;
begin
i:=strtoint(edit3.Text);
j:=strtoint(timetostr(now));
if timer3.Enabled=true then
label9.Caption :=inttostr(j-i);
运行1秒就会出错~~救命啊!