Присваивание значения через промежуток времени

[Roof]

2 Epc Погляди мой пример. Надеюсь устроит. Все вертится вокруг кнопки Запустить отсчет/проверить время

[Epc]

Спасибо, идея правильная, только мне нужно не системное время Windows, а время в игре!!!! , которое у меня реализовано через Sleep.
Проще говоря, я делаю имитационную модель предприятия: на то чтобы изготовить продукцию требуется несколько дней. пользователь ведь не может сидеть и ждать несколько дней! поэтому время игрушечное.
И в данном случаи, в этой форме мне нужно нанять через random рабочих, если рабочих = "едит1" меньше чем надо, то пользователь обязан подождать месяц, пока не придут новые рабочие, опять таки их случайно несгенерирует едит1.

[Roof]

Все меньше стал понимать твое задание. Вот погляди другой пример. Это только базовый пример. Скажи, правильно тебя понял?

[Epc]

Спасибо большое за помощь!!! все именно так, только теперь рядом с цифрами от 0 до 10 нужно еще 2 Label, в которых бы отображались месяц и год, причем, в январе 31 день, в феврале 28.
я не знаю как это сделать.
Помогите еще раз.
В этой болванке набрано, то что вы говорили в начале главной форме в {}.
Форма 7 и Форма 1.
Время отображается в Panel1,Panel2,Panel3
Оно начинает идти после нажатия на кнопку со стрелкой.

[Roof]

Поглядел вложение - логика очень запутанная и совсем непонятно что к чему, разобраться не смогу. Могу сделать в своем примере:
1) Начальные данные 1 января 2010 года, к примеру.
2) Нажали генерировать дни увеличиваются, рядом отображается месяц и год. Соответственно, когда количество дней стало равным одному месяцу, месяц обновился, также, когда количество месяцев станет равным году, год обновится. Без високосных сделаю.

Устроит?

Если на этом задача исчерпывается, то можно и так сделать, просто по кликам на кнопочки. А если хочешь приложение более функциональное, то нужно сначала проработать и описать внутреннюю структуру, потом уже привязать к интерфейсу.

[Epc]

ДА!!!!!!!!!!!
Только чтобы в месяце соблюдалось количество дней, где -то 31, где-то 30.
Это моя первая работа в делфи!, поэтому примитив принимается полностью.

Без високосных конечно!!!!!!!!! Спасибо огромнейшее!!!!
Да еще можно чтобы время запускалось само, т.е Button привязываем к onActivate.

[Roof]

Держи
То, что хотела? Генерация возможна в начале каждого месяца, как я понял. Или нет?

[Epc]

Чего то не запускается . ругается где идет описание соnst=месяц.

[Roof]

Хм. const = месяц у меня нету. И у меня все запускается. Скрин ошибки выложи.

[Serge_Bliznykov]

угу. проверил. Выложенный код нормально компилируется и работает.

Чего то не запускается . ругается где идет описание соnst=месяц.

я думаю, что когда девушка переносит описание месяцев в свой код, то забывает перенести описание типа TMonths

type
  TMonths = record
    DaysCount: Integer;
    Name: string[8];
  end;

угадал?

p.s. а я бы ещё добавил кнопку Пауза/Продолжить
и ещё - прямо на форме задавал - сколько секунд - один день - чтобы можно было ускорить или замедлить ход имитационного времени... Это всё добавить совсем не сложно...