Стоп-стоп-стоп, 130 строк чтобы сравнить настоящее время со временем в массиве и сделать "ДЗЫНЬ" при совпадении чисел?
Не совсем :3
Добавлено через: 5 мин. 1 сек.
Собственно кода 110 строк
Добавлено через: 4 мин. 53 сек.
Так много строк из-за:
моего нежелания использовать RelativeTimeMs - сокращает немного, но путаница будет
проверок на индекс, ибо телефон подвешивает(не знаю, кто виноват - я или паскаль)
прочих проверок
начал для доработки
кривости кода
Добавлено через: 3 мин. 43 сек.
Например здесь можно обойтись одной строкой в коде, а не процедурой:
procedure getStartPoint;
begin
startPoint := GetCurrentTime;
startPoint := startPoint - getSecond(startPoint);
startPoint := startPoint - getMinute(startPoint) * 60;
startPoint := startPoint - getHour(startPoint) * 3600;
startPoint := startPoint + 8*3600;
end;
В одну строку:
startPoint := GetCurrentTime - getSecond(startPoint) - getMinute(startPoint) * 60 - getHour(startPoint) * 3600 + 8*3600;
Но мне удобнее именно процедура