Hallo,
auch mit der Funktion DateUtils.SecondsBetween() lässt sich ein Time Slot testen:
Delphi-Quellcode:
const
DELTA_SECONDS = 1; // 0 entspräche dem String-Ansatz
begin
if (Now >= DTP.DateTime)
and (DateUtils.SecondsBetween(Now, DTP.DateTime) <= DELTA_SECONDS) then
begin
{ ... };
end;
end;
Grüße vom marabu