Дата

[Bigtyoma]

Здравствуйте, я тут сделал программу под названием Date, помогите мне сделать сохранение события, и чтобы при следующем запуске программы было не "До нового года..." а "До (ваше событие)...."

[SERG1980]

можно через ини

[Bigtyoma]

большое спасибо

[Bigtyoma]

Мне посоветоал один друг (испытатель beta версии) чтобы было обновление программы, чтобы после 0 часов программа обновлялась, как это можно сделать?
если делать через Timer то там же можно прописать чтобы через какое-то время обновлялась, или я ошибаюсь?

[SERG1980]

Можно и через таймер, а можно и готовый компонент каких нибудь часов взять благо их щас много

[Bigtyoma]

а как через таймер сделать, чтобы прога обновлялалась в 00:01?

[Nemon]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if TimeToStr(Time) = '00:00:01' then
что ты там собираешься обновлять...
end;


Вроде так.

[Bigtyoma]

Чё то я похоже не то пишу... не обновляется, подскажите чё надо писать вместо:

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

что ты там собираешься обновлять...

[BOBAH13]

DecodeTime вроде, получаите все миллисекунды и сравниваите что все по нулям и только секунда = 1 все... далее делайте все что хотели... на счет кода представленного выше я не уверен.

[Nemon]

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

Чё то я похоже не то пишу... не обновляется, подскажите чё надо писать вместо:

Сори, совсем забыл... ноль один нужен (Винда именно так считает)

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if TimeToStr(Time) = '0:00:01' then
то что ты обновляешь
end;

Исходники твои не смотрел... так что как ты там получаешь дату - не знаю.