Время

[ben95]

как сделать чтоб программа следила за временем(ну нужно 4 будильника) как сделать?
delphiDv@mail.ru
Delovelper 465-050-510 , 474-655-747
руковадитель none

[SunKnight]

Самый примитивный пример (на скорую руку)

procedure TForm1.Timer1Timer(Sender: TObject);
var a,b,c,d:string;
begin
a:='12:12:01';
c:='13:12:01';
b:='14:04:01';
d:='15:12:01';
if timer1.Interval=1000 then
        begin
        if a=timetostr(time) then application.MessageBox('a','dzin');
        if b=timetostr(time) then application.MessageBox('b','dzin');
        if c=timetostr(time) then application.MessageBox('c','dzin');
        if d=timetostr(time) then application.MessageBox('d','dzin');
         end;

end;

[Jeni]

Пример в принципе рабочий, только не совсем понятно зачем там стоит проверка if timer1.Interval=1000 then ... ? Работать должно при любом значении интервала.
И еще, в таких случаях лучше проверять не на "равно", а на "равно или больше" текущего времени. Ведь таймер не слишком точная вещь, к тому же, если программа (или система) сильно занята, то несколько "тиков" могут быть просто пропущены (точнее обработаны с большим запозданием).

[mihali4]

Добавим флаги, показывающие, отработано ли установленное время (в данном случае А):

var flagA: boolean;
...
begin
flagA:=False;
...
if ((not flagA) and (a>=timetostr(time))) then 
begin
flagA:=not flagA;
application.MessageBox('a','dzin');
end;
...
end;