период времени

[zebatic]

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

[fbus]

Label1.caption:=Timetostr(Now);

[vovk]

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

Label1.caption:=Timetostr(Now);

почти

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:=  TimeToStr(Now- StrToTime(Edit1.Text));
end;

[zebatic]

аааа спасибо народ пол ночи голову взрывал а тут одна строка))))
а может еще поможете:

Создайте приложение, на форму которого помещены компоненты: Edit — 2 шт., Label — 2 шт., Button — 1 шт. Напишите обработчик события OnClick компонента Button, который выводит одномерный массив 2 раза (исходный и отсортированный методом пузырька)

а то я как то не очень к методу пузырька) заранее большое спасибо)))

[vovk]

1 тема 1 вопрос. А вообщето метод пузырька много где подробно описан, и с прмерами.