14 lines
311 B
ObjectPascal
14 lines
311 B
ObjectPascal
|
procedure OnElapsed(sender: object; eventArgs: System.Timers.ElapsedEventArgs);
|
||
|
|
begin
|
||
|
|
Writeln(eventArgs.SignalTime);
|
||
|
|
system.Timers.Timer(sender).Stop;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
var timer := System.Timers.Timer.Create(1000);
|
||
|
|
timer.Elapsed += OnElapsed;
|
||
|
|
Writeln(DateTime.Now);
|
||
|
|
timer.Start;
|
||
|
|
Console.ReadLine;
|
||
|
|
end.
|