TTimer +
TDealy = (Dlbform,DlSysKeys,DlTaskBar,DlTaskBarStatus,DlStartButton);TDealylist = Array[1..5] of TTimer;
Procedure Tstealth.DealyRestor(Dealy :TDealy; TimeInMs: Cardinal);
Begin
case Dealy of
Dlbform : Begin
Dealylist[1].Interval := TimeInMs;
Dealylist[1].OnTimer := Dl1;
Dealylist[1].Enabled := True;
End;
DlSysKeys : Begin
Dealylist[2].Interval := TimeInMs;
Dealylist[2].OnTimer := Dl2;
Dealylist[2].Enabled := True;
End;
DlTaskBar : Begin
Dealylist[3].Interval := TimeInMs;
Dealylist[3].OnTimer := Dl3;
Dealylist[3].Enabled := True;
End;
DlTaskBarStatus : Begin
Dealylist[4].Interval := TimeInMs;
Dealylist[4].OnTimer := Dl4;
Dealylist[4].Enabled := True;
End;
DlStartButton : Begin
Dealylist[5].Interval := TimeInMs;
Dealylist[5].OnTimer := Dl5;
Dealylist[5].Enabled := True;
End;
End;
End;
Dealylist[1].Interval := TimeInMs;
Denne line give dette hvorfor?
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message \'Access violation at address 0046ECF7 in module \'Project1.exe\'. Read of address 0000004C\'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Hvis det fordi man ikke gøre det hvad gør man så?