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

[Epc]

Помогите пожалуйста, программирую всего пару недель и слишком плохо разбираюсь в этом.
У меня есть главная форма, в ней по нажатию на кнопку со стрелкой запускается время : число месяц и год.
Потом мне нужно зайти на форму7 : меню "Финансы"\ Биржа труда.
Там у меня есть едит1 и кнопка1. Причем едит1 в свойствах стоит значение: Text=0.
По нажатию на кнопку происходит генерация случайным образом числа, т.е. мы нажали на кнопку и появилось случайное число 12, при послед. нажатии на кнопку число больше не генерируется.
Дальше у меня не получается, надо чтобы после того как на главной форме прошел !!!!!!месяц!!! на форме 7, в поле едит1, должно автоматически вместо ранее сгенерированного числа 12 поставиться число 0, и тогда получается что на 0 можно снова генерировать случ. число.
Т.е Задача: Мне нужно чтобы заходя на форму 7 генерировалось сл.число, но генерировалось оно только раз в месяц!!!! т.е. пока не пройдет месяц на гл. форме, то на форме7 Button1.Enabled:=false.
Чтобы эту задачу решить я и придумала, что он проверяет прошел ли месяц и тогда присваивает значение =0, а раз =0 то Button1.Enabled:=true. и можно снова генерировать, помогите пожалуйста.
Вот текст. он выдает ошибку на 2 строчке где идет оператор while , то ему на 2 строчке or не нравится. помогите вообще разобраться. Я понимаю что так писать нельзя но не могу со своими знаниями ничего придумать

procedure TForm7.Button1Click(Sender: TObject);
begin

kolBezrab:= StrToFloat(Edit1.Text);
if kolBezrab=0 then
begin
Button1.Enabled:= true;
randomize;
kolBezrab:=random(20);
Edit1.Text:=FloatToStr(kolBezrab);
end;
{else
begin
Button1.Enabled:=false;
Day:=StrToInt(Form1.Panel1.Caption);
while
(if Mes=1 then if Day=32 then Button1.Enabled:= true)or
(if Mes=2 then if Day=29 then Button1.Enabled:= true)or
(if Mes=3 then if Day=32 then Button1.Enabled:= true) or
(if Mes=4 then if Day=31 then Button1.Enabled:= true) or
(if Mes=5 then if Day=32 then Button1.Enabled:= true) or
(if Mes=6 then if Day=31 then Button1.Enabled:= true)or
(if Mes=7 then if Day=32 then Button1.Enabled:= true) or
(if Mes=8 then if Day=32 then Button1.Enabled:= true) or
(if Mes=9 then if Day=31 then Button1.Enabled:= true) or
(if Mes=10 then if Day=32 then Button1.Enabled:= true) or
(if Mes=11 then if Day=31 then Button1.Enabled:= true) or
(if Mes=12 then if Day=32 then Button1.Enabled:= true);
do begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab);
end;}

end;
end.

[Риндера]

Я пока пытаюсь догнать смысл задачи, но ошибка в том, что в скобках после while должно стоять булевое выражение, то есть равное либо true либо false, а у тебя стоят условия.

Upd.
Попробуй написать вместо всего оператора while так:

case Mes of
1: if Day=32 then Button1.Enabled:= true;
2: if Day=29 then Button1.Enabled:= true;
3: if Day=32 then Button1.Enabled:= true;
4: if Day=31 then Button1.Enabled:= true;
5: if Day=32 then Button1.Enabled:= true;
6: if Day=31 then Button1.Enabled:= true;
7: if Day=32 then Button1.Enabled:= true;
8: if Day=32 then Button1.Enabled:= true;
9: if Day=31 then Button1.Enabled:= true;
10: if Day=32 then Button1.Enabled:= true;
11: if Day=31 then Button1.Enabled:= true;
12: if Day=32 then Button1.Enabled:= true;
end;

[Epc]

Не помогло, он вообще не видит.
Т.е. я захожу на форму7, нажимаю 1 раз кнопку, он генерирует случ. число. и больше нет, кроме этого при посл. нажатии кнопка зачерняется и на нее нельзя нажать из-за Button1.Enabled:=false;
я пробовала ее убирать, но даже после этого он ее не зачерняет но после того как прошел месяц он не присваивает полю едит1 =0 .

Не получилось

Происходит сл. захожу на форму7. нажимаю на кнопку, генер. число, после того как пройдет месяц при повторном нажатии на кнопку происходит ее зачернение и ничего не генерируется. пробовала убрать Button1.Enabled:=false; но после того как пройдет месяц, на кнопку нажать можно, но число все равно не генерируется. Помогите!!!!!!!!!!!!!

т.е. он после того как проходит месяц не присваивает полю едит1=0!!! Вот новый код

begin
 kolBezrab:= StrToFloat(Edit1.Text);
 if  kolBezrab=0 then
   begin
   Button1.Enabled:= true;
   randomize;
   kolBezrab:=random(20);
   Edit1.Text:=FloatToStr(kolBezrab);
   end
else
 begin
// Button1.Enabled:=false;
 Day:=StrToInt(Form1.Panel1.Caption);

 case Mes of
1: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true;end;
2: if Day=29 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
3: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab);Button1.Enabled:= true;  end;
4: if Day=31 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
5: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
6: if Day=31 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
7: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
8: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
9: if Day=31 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
10: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
11: if Day=31 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
12: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab);Button1.Enabled:= true; end;
end;

Может ли быть проблема в том что он не считывает какой сейчас месяц, я просто не знаю как это считать, потому что месяц ведь в буквах. Программирую недавно.
Кто -нибудь помогите чайнику.

[Риндера]

Вот тут есть у меня процедурка, как получить системное время, от секунд до года:

procedure SystemTime(Label1:TLabel;Label2:TLabel);
var lt:TSYSTEMTIME;
begin
GetLocalTime(lt);
Label1.Caption:=IntToStr(lt.wDay)+'.'+
                IntToStr(lt.wMonth)+'.'+
                IntToStr(lt.wYear);
Label2.Caption:=IntToStr(lt.wHour)+':'+
                IntToStr(lt.wMinute)+':'+
                IntToStr(lt.wSecond);
end;

Думаю, все ясно и без комментариев. Можешь посмотреть, какого формата получается lt.wMonth (но вроде число), и уже с ней оперировать.

[Epc]

К чему ее подключать эту процедуру, я правда программирую 2 неделю.
Я ее в объявлении процедур не описала, поэтоум на активацию формы поставить не могу.
А объявиь тоже не могу, он ошибку выдает

[Риндера]

procedure TForm7.Button1Click(Sender: TObject);
var lt:TSYSTEMTIME; // переменная, в которую запишем системное время
begin
GetLocalTime(lt); // собственно считывание системного времени
 kolBezrab:= StrToFloat(Edit1.Text);
 if  kolBezrab=0 then
   begin
   Button1.Enabled:= true;
   randomize;
   kolBezrab:=random(20);
   Edit1.Text:=FloatToStr(kolBezrab);
   end
else
 begin
// Button1.Enabled:=false;
 Day:=StrToInt(Form1.Panel1.Caption);

 case lt.wMonth of // заменила Mes на значение месяца из сис. времени
1: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true;end;
2: if Day=29 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
3: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab);Button1.Enabled:= true;  end;
4: if Day=31 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
5: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
6: if Day=31 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
7: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
8: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
9: if Day=31 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
10: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
11: if Day=31 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end;
12: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab);Button1.Enabled:= true; end;
end;

Чтобы не писать 12 раз "begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab);B utton1.Enabled:= true; end;" советую сделать так:
Найди где в самом начале программы перечислены все процедуры и допиши туда

procedure MyProc (Sender: TObject);

Далее перед твоей процедуркой Button1Click вставь

procedure TForm7.MyProc (Sender: TObject);
begin
kolBezrab:=0; 
Edit1.Text:=FloatToStr(kolBezrab);
Button1.Enabled:= true;
end;

А вместо этих длинных строк поставь

1: if Day=32 then MyProc(nil);

[Mad_Cat]

так не короче

case lt.wMonth of // заменила Mes на значение месяца из сис. времени
1,3,5,7,8,10,12: if Day=32 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true;end;
2: if Day=29 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab); Button1.Enabled:= true; end
 else if Day=31 then begin kolBezrab:=0; Edit1.Text:=FloatToStr(kolBezrab);Button1.Enabled:= true;  end;
end;

[Риндера]

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

так не короче

Можно и так.
Нам сейчас по идее не до красот и оптимизации кода, а лишь бы работало)

[Epc]

Спасибо, но не получается.
Я не поняла: я считала день Day:=StrToInt(Form1.Panel1.Caption) ;
Нужно ли мне теперь как то считать месяц lt.wMonth , если да то откуда с label1, но как.
То что вы вначале писали (в предыдущем сообщении), это ведь на главной форме должно быть, и тогда как это подключить, потому что у меня время задается через sleep, т.е. день и месяц проходят через sleep, по др. мне не надо.
У меня вообще задание, это сделать имитацию предприятия, в ней как раз время игрушечное, т.е. стадии производства в 2 дня напрмер, должно равняться 5 минутам, поэтому оно должно быть реализ-но через sleep.
Скорее всего я Вас плохо понимаю. что мне нужно сделать.

[Roof]

Сообщение от Риндера

Можно и так.
Нам сейчас по идее не до красот и оптимизации кода, а лишь бы работало)

Очень нехороший подход

На мой взгляд все можно сделать так:

if (lt.wMonth in [1..12]) and (Day in [29..32]) then //Как это 32? Думаю имелось ввиду 31
begin
//тут что нужно пишем
end;

У вас же при любых условиях одни и те же действия.