Ver Mensaje Individual
  #3  
Antiguo 15-01-2021
pablocarlos pablocarlos is offline
Miembro
 
Registrado: ene 2021
Posts: 56
Reputación: 4
pablocarlos Va por buen camino
Smile

Gracias Casimiro por tu tiempo. Este es el código pero el "update" no me lo reconoce rad studio, si en delphi 7
Código Delphi [-]
procedure TForm1.btnStartClick(Sender: TObject);
var
 Min,Hour,Sec:Integer;
 MinStr,HourStr,SecStr:String;
begin
 Hour := StrToInt(HoursEdt.Text);
 Min := StrToInt(MinsEdt.Text);
 Sec := StrToInt(SecEdt.Text);
 HourStr := IntToStr(Hour);
 MinStr := IntToStr(Min);
 SecStr := IntToStr(Sec);
  while Hour > -1 do
   begin
     while Min > -1 do
      begin
        while Sec > -1 do
         begin
           Sleep(1000);
           Sec := Sec -1;
           SecStr := IntToStr(Sec);
           lContador.Text := HourStr + ':' + MinStr + ':' + SecStr;
           //lContador.Update;
         end;
      Min := Min -1;
      Sec := 60;
      MinStr := IntToStr(Min);
      lContador.Text := HourStr + ' : ' + MinStr + ' : ' + SecStr;
      lContador.Update;
      end;
   Hour := Hour -1;
   Min := 60;
   HourStr := IntToStr(Hour);
   lContador.Text := HourStr + ' : ' + MinStr + ' : ' + SecStr;
   lContador.Update;
   end;
Responder Con Cita