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

[Epc]

Я понимаю что туплю, он копирую как вы показали, в точности ваш прошлый пост (длинный вариант, пробовала и короткий), но он не присваивает 0, он генерирует 1 раз число и дальше кнопка не действует сколько бы я не ждала

[Риндера]

Ну иссессно, у тебя вся эта процедура на одной кнопке? И в этой процедуре кнопка блокируется?) А процедура срабатывает только по нажаю кнопки.

[Epc]

Я не понимаю что делать с

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;

[Риндера]

С ней ничего не надо делать! Это просто пример)
Мы из нее уже взяли всё что было нужно.

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

Roof, а я еще и банальная, как сказал тут кое-кто-не-будем-показывать-пальцем)

[Epc]

Вся процедура только в 1 кнопке, больше у меня нигде ничего не добавлено. Захожу на форму, на ней в едит1=0, потом нажиамю кнопку ген-ся сл. число, потом нажимаю снова на кнопку и больше ничего не генерируется, через время 0 не присваивается., потому что я не знаю как задать lt.wMonth

procedure TForm7.Button1Click(Sender: TObject);

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;
 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;

Просто смысл в том, что генерировться ведь должно после того как на главной форме пройдет месяц! (переменная Mes) а он у нас в коде получается не задействован (Mes нет).

[Риндера]

Ясно. Тогда верни Mes.

[Epc]

и вот как у меня время оформлено на главной форме:

procedure TForm1.FormCreate(Sender: TObject);
begin
 {èñõîäíûå äàííûå ïî ñûðüþ}


  Day:=1; Mes:=1; God:=2009;

end;

procedure TForm1.FormShow(Sender: TObject);
begin


  Panel1.Caption:=IntToStr(Day);

  if Mes=1 then Panel2.Caption:='ÿíâàðü';
  if Mes=2 then Panel2.Caption:='ôåâðàëü';
  if Mes=3 then Panel2.Caption:='ìàðò';
  if Mes=4 then Panel2.Caption:='àïðåëü';
  if Mes=5 then Panel2.Caption:='ìàé';
  if Mes=6 then Panel2.Caption:='èþíü';
  if Mes=7 then Panel2.Caption:='èþëü';
  if Mes=8 then Panel2.Caption:='àâãóñò';
  if Mes=9 then Panel2.Caption:='ñåíòÿáðü';
  if Mes=10 then Panel2.Caption:='îêòÿáðü';
  if Mes=11 then Panel2.Caption:='íîÿáðü';
  if Mes=12 then Panel2.Caption:='äåêàáðü';

  Panel3.Caption:=IntToStr(God);
 end;






procedure TForm1.BitBtn1Click(Sender: TObject);

Label A;
begin
Day:=0;
 repeat
 Day:=Day+1;

 if Mes=1 then begin if Day=32 then begin Day:=1; Mes:=2;Goto A;end;end;
  if Mes=2 then begin if Day=29 then begin Day:=1; Mes:=3;Goto A;end;end;
  if Mes=3 then begin if Day=32 then begin Day:=1; Mes:=4;Goto A;end;end;
  if Mes=4 then begin if Day=31 then begin Day:=1; Mes:=5;Goto A;end;end;
  if Mes=5 then begin if Day=32 then begin Day:=1; Mes:=6;Goto A;end;end;
  if Mes=6 then begin if Day=31 then begin Day:=1; Mes:=7;Goto A;end;end;
  if Mes=7 then begin if Day=32 then begin Day:=1; Mes:=8;Goto A;end;end;
  if Mes=8 then begin if Day=32 then begin Day:=1; Mes:=9;Goto A;end;end;
  if Mes=9 then begin if Day=31 then begin Day:=1; Mes:=10;Goto A;end;end;
  if Mes=10 then begin if Day=32 then begin Day:=1; Mes:=11;Goto A;end;end;
  if Mes=11 then begin if Day=31 then begin Day:=1; Mes:=12;Goto A;end;end;
  if Mes=12 then begin if Day=32 then begin Day:=1; Mes:=1; God:=God+1; Goto A;end;end;


  A:

  Panel1.Caption:=IntToStr(Day);

  if Mes=1 then Panel2.Caption:='ÿíâàðü';
  if Mes=2 then Panel2.Caption:='ôåâðàëü';
  if Mes=3 then Panel2.Caption:='ìàðò';
  if Mes=4 then Panel2.Caption:='àïðåëü';
  if Mes=5 then Panel2.Caption:='ìàé';
  if Mes=6 then Panel2.Caption:='èþíü';
  if Mes=7 then Panel2.Caption:='èþëü';
  if Mes=8 then Panel2.Caption:='àâãóñò';
  if Mes=9 then Panel2.Caption:='ñåíòÿáðü';
  if Mes=10 then Panel2.Caption:='îêòÿáðü';
  if Mes=11 then Panel2.Caption:='íîÿáðü';
  if Mes=12 then Panel2.Caption:='äåêàáðü';

  Panel3.Caption:=IntToStr(God);
   Application.ProcessMessages;
  sleep(400);

  until God>=2070;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Day:=1; Mes:=1; God:=2009;
   Panel1.Caption:=IntToStr(Day);
   if Mes=1 then Panel2.Caption:='ÿíâàðü';
   Panel3.Caption:=IntToStr(God);

end;

Все больше в коде программы ВООБЩЕ НИЧЕГО НЕТ

Вернула, только 0 не присваивается

[Roof]

2 Epc - если пользователь закроет программу, пока не прошел месяц (маловероятно, конечно) и зайдет в нее снова, через час, допустим, то сможет генерировать? Или этого уже предусматривать не надо? Хочу помочь, накидать пример попроще.

[Epc]

Написала код где генерируется у мнея на гл. форме время, может будет более понятно, только модератор долго проверяет. Код слишком длинный, разбивать не получится

Нет, это придусматривать не надо, у меня все банально. Без изысков.

[Stilet]

Для особо приближенных к найодареннейшим талантам плевать на правила форума сообщаю - Здесь принято код оформлять кнопкой #, а не абы как. Здесь принято не постить подряд если твой пост последний
За продолжение невыполнения морали клуба тему закрою.