2 timer event
Hi Can I apply 2 timer event in one script/project suite? any suggestion? thanks
Forum Discussion
AlexKaras
Champion Level 3
Champion Level 3Hi William,
Some untested DelphiScript-like pseudo-code (just because it supports try/finally) off top of my head:
var boolInHandler
procedure OnStartTest(); // can be event handler for the OnStartTest event - see help for more details
begin
boolInHandler := false;
...
end;
procedure TimerHandler();
begin
if (boolInHandler) then
exit;
boolInHandler := true;
try
...
finally
boolInHandler := false;
end;
end;
Some untested DelphiScript-like pseudo-code (just because it supports try/finally) off top of my head:
var boolInHandler
procedure OnStartTest(); // can be event handler for the OnStartTest event - see help for more details
begin
boolInHandler := false;
...
end;
procedure TimerHandler();
begin
if (boolInHandler) then
exit;
boolInHandler := true;
try
...
finally
boolInHandler := false;
end;
end;