Добрый вечер. Понимаю что вопрос простой, а не получается.
Не получается условие выполнения процедуры "Alarm" сделать.
PHP код:
procedure TForm1.Timer3Timer(Sender: TObject);
begin
getlocaltime(ST);
if (ST.Whour=StrToInt(Label23.Caption))
and (ST.WMinute=StrToInt(Label24.Caption))
and (CheckBox04.Checked=True)
and (StrToInt(Label21.Caption='Понедельник')) then Alarm
else
if (ST.Whour=StrToInt(Label23.Caption))
and (ST.WMinute=StrToInt(Label24.Caption))
and (CheckBox05.Checked=True)
and (StrToInt(Label21.Caption:='Вторник')) then Alarm
end;
На Label21 у меня отображается текущий день недели, вот тут у меня возникла трудность. Как мне правильно записать это условие? Ругается.
Заранее благодарю за совет.