Simba Code:
program New;
{$DEFINE SRL5}
{$i srl/srl.simba}
var
Timer: TTimer;
Procedure hi(Sender: TObject);
begin
writeln('hi');
end;
Procedure CreateTimer;
Begin
Timer := TTimer.Create(nil);
Timer.Interval := 2000;
Timer.Enabled := True;
Timer.OnTimer := @hi;
End;
Procedure DeleteTimer;
Begin
Timer.Enabled := False;
Timer.Free;
End;
Procedure ScriptTerminate;
Var
V: TVariantArray;
Begin
SetLength(V, 0);
ThreadSafeCall('DeleteTimer', V);
// AddOnTerminate('DeleteTimer');
End;
Var
V: TVariantArray;
t: integer;
begin
SetLength(V, 0);
ThreadSafeCall('CreateTimer', V);
t := getsystemtime;
Repeat
Wait(100);
Until getsystemtime - t > 8000;
end.
It seems the timer isn't running or procedure "hi" isn't being called as there is no output in the console