|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Delphi 7 ДАТА и ВРЕМЯ
Всем привет, кто может написать программу которая будет менять каждую секунду дату на 10 сек вперёд?
|
#2
|
|||
|
|||
А в чем проблема?
Бросаешь на форму таймер. В обработчике пишешь: Код:
procedure TForm1.Timer1Timer(Sender : TObject); const OneSec = 1/(24*60*60); // Одна секунда begin FDateTime := FDateTime + 10*OneSec; end; Код:
type TForm1 = class(TForm) ... private FDateTime : TDateTime; ... procedure TForm1.FormCreate(Sender : TObject) begin FDateTime := Now; end; |