Отображение в Label периода с помощью таймера

[puporev]

прошедший с момента, указанного в компоненте Edit

Я наверное тупой, но все понимаю буквально. Ну а если Вы не знаете ответ на свой вопрос, подскажу, что пойдет обратный отсчет.

[mihali4]

Ну, ну, не нужно кокетничать.
А если понимать буквально, то ведь написано:
"прошедший с момента, указанного в компоненте Edit" а не "между"...
Именно об этом нюансе я и говорил раньше как об упущенном из рассмотрения. Но почему-то никто на это внимания тогда не обратил.

[DenSuper007x]

mihali4
а как тогда изменить код?

[mihali4]

Сообщение от DenSuper007x

mihali4
а как тогда изменить код?

Так я это еще в #10 посте предлагал:

То есть по условию-то получается, что отсчет должен начинаться, когда текущее время станет больше указанного в эдите. Или я усложняю?
Но и в этом случае ничего сложного - просто капшен лейбла по событию таймера будем менять не всегда, а только после того, как "текущее время станет больше указанного в эдит". До этого момента таймер будет просто осуществлять эту проверку.

[DenSuper007x]

а как это в коде написать? а то я чёт недогоняю

[mihali4]

Берем за основу способ, предложенный уважаемым puporev:

procedure TForm1.Timer1Timer(Sender: TObject);   
var Fix: TDateTime;   
begin   
//Проверяем, вся ли строка времени введена
if Length(Edit1.Text)=8 then   
Fix:=StrToTime(Edit1.Text) else
exit;
//Если да, то проверяем, наступило ли время, указанное в Edit1
if Frac(Now)>=Fix then
Label1.Caption:=TimeToStr(Frac(Now)-Fix);   
end;

Правда, я бы еще добавил запрет на ввод в эдит всех символов, кроме двоеточия и цифр, а еще лучше - как уже предлагали - использовать маскэдит.
(FRAC - это выделение дробной части из текущего момента времени NOW. Целая часть - это дата, дробная - время.)

[DenSuper007x]

О, вот теперь другое дело, это сделал, подскажите ещё, как доделать задание, указанное в посте 16, там в самом конце не получается

[mihali4]

Сообщение от DenSuper007x

О, вот теперь другое дело, это сделал, подскажите ещё, как доделать задание, указанное в посте 16, там в самом конце не получается

ColorToStr...

[DenSuper007x]

mihali4
? это вот суды писать да: Label2.Caption:=?

[DenSuper007x]

Помогите доделать его, а то чёт не получается, я даже понять не могу ту часть задания, где цвет