请修改,
用下面的代码 测试
procedure Tform_vocmain.Timer_All(Sender: TObject);
var
nTimerNo: integer;
begin
nTimerNo:=TTimer(Sender).Tag;
bAllTimer[nTimerNo]:=true;
TTimer(Sender).Enabled:=false;
end;
用下面的代码 测试
procedure Tform_vocmain.Timer_All(Sender: TObject);
var
nTimerNo: integer;
begin
nTimerNo:=TTimer(Sender).Tag;
bAllTimer[nTimerNo]:=true;
TTimer(Sender).Enabled:=false;
end;
我本来学DELPHI才两三天,错误总是难免啊
所以才请你们帮帮忙吗