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

[DenSuper007x]

Создайте приложение, на форму которого помещены компоненты: Timer, Label и Edit. Напишите обработчик события OnTimer компонента Timer, который каждую секун-ду отображает с помощью компонента Label период времени (в формате ЧЧ:ММ:СС), прошедший с момента, указанного в компоненте Edit (также в формате ЧЧ:ММ:СС).
Помогите плиз, ет последняя задача что мне нужна, и чёт она не получается

[mihali4]

ет последняя задача что мне нужна, и чёт она не получается

Что именно не получается?
Где код ваших попыток? Вопрос совершенно элементарный, честнее было бы сказать - не хочу, мол, ничего делать, сделайте за меня, а я пусть так неучем и останусь...

[DenSuper007x]

var
Form1: TForm1;
StartTime:TDateTime;

implementation

{$R *.dfm}

procedure TForm1.TimerTimer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(now-StartTime);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
StartTime:=strtotime(Edit1.Text);
TimerTimer(sender);
end;

Только он бьет ошибку, потому что таймер работает посекундно, а в первую секунду Edit1 пустой

[mihali4]

Только он бьет ошибку, потому что таймер работает посекундно, а в первую секунду Edit1 пустой

Ну так делаем первым оператором в FormCreate такой:
Edit1.Text:=TimeToStr(now);
А чтобы не делать преобразования туда-сюда, пишем:
StartTime:=now;
И тогда уже выглядеть это должно так:
procedure TForm1.FormCreate(Sender: TObject);
begin
StartTime:=now;
Edit1.Text:=TimeToStr(StartTime);
...

[DenSuper007x]

И всё что-ли?

[DenSuper007x]

Мне не нужно отчитывать время от начала работы приложения,в Edit1 должно быть произвольное время.

[DenSuper007x]

Вот в этом-то и запарка

[puporev]

Если еще не прдумал, то сделай так. На форме еще нужен Button.
В свойствах Timer ставишь интервал 100. Потом пишешь такой код.

procedure TForm1.Button1Click(Sender: TObject);
begin
  timer1.Interval:=1000;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var Fix,Now:TDateTime;
begin
if timer1.Interval =1000 then
   begin
     Now:=time();
     Fix:=Strtotime(edit1.Text);
     label1.Caption:=timetostr(now-fix);
    end;
 end;
end.

Вводишь в Edit время в формате 12:12:12 нажимаешь кнопку и вперед.
Можно обойтись без кнопки, тогда интервал оставляешь 1000, а время в Эдите задаешь программно.

[DenSuper007x]

Можно обойтись без кнопки, тогда интервал оставляешь 1000, а время в Эдите задаешь программно.[/QUOTE]
А как программно?

[mihali4]

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

Мне не нужно отчитывать время от начала работы приложения,в Edit1 должно быть произвольное время.

По событию OnKeyDown для Edit1 останавливаем таймер (при этом проверяем - если VK_RETURN - значит время введено и только тогда таймер опять запускаем).
Резоннее тогда и убрать из создания формы
StartTime:=strtotime(Edit1.Text);
TimerTimer(sender);
Ну, и таймер сделать Enabled:=False изначально.
Да, и к тому же мы, как я понял, упустили важный момент:

каждую секун-ду отображает с помощью компонента Label период времени, прошедший с момента, указанного в компоненте Edit

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