Imam tri Edit-a u svakom editu je postavljeno vreme koje se medjusobno razlikujua zatim imam dva tajmera jedan prikazuje proteklo vreme a drugi
vrši kalkulaciju izmedju ovih tri edita i treba da mi prikaže rezultat izmedju ovih tri edita u labelu u mom slučaju je to Label1.
Evo koda:
Code:
procedure TForm1.FormShow(Sender: TObject);
begin
timer1.enabled:=True;
timer2.enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label14.Caption :=formatdatetime('hh:nn:ss',now);
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if (label14.Caption > maskedit1.Text) and (label14.Caption <= maskedit2.Text) then
begin
Label1.Caption:='1';
end else
if (label14.Caption > maskedit2.Text) and (label14.Caption <= maskedit3.Text) then
begin
Label1.Caption:='2';
end else
if (label14.Caption > maskedit3.Text) and (label14.Caption <= maskedit1.Text) then
begin
Label1.Caption:='3';
end;
procedure TForm1.FormShow(Sender: TObject);
begin
timer1.enabled:=True;
timer2.enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label14.Caption :=formatdatetime('hh:nn:ss',now);
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if (label14.Caption > maskedit1.Text) and (label14.Caption <= maskedit2.Text) then
begin
Label1.Caption:='1';
end else
if (label14.Caption > maskedit2.Text) and (label14.Caption <= maskedit3.Text) then
begin
Label1.Caption:='2';
end else
if (label14.Caption > maskedit3.Text) and (label14.Caption <= maskedit1.Text) then
begin
Label1.Caption:='3';
end;
E sada mi je tu problem pri pokretanju aplikacije neće da automatski prikaže da li je to 1,2,3 samo kada izvršim promenu vremena u bilo kom editu
onda kada proteklo vreme prodje zadato vreme tada automatski prebaci broj 1 ili 2 ili 3 a na pokretanju forme neće da detektuje.
Ili treba neka izmena u kodu ili da se nešto doda molim za pomoć.
Boban