Label en Conteo regresivo

[unko!]

ola, alguien sabe como hacer para que un label vaya en conteo regresivo con un timer? ya lo habian mencionado en este post pero se revolvio con otros comandos y no le entendi muy bien.


salu2!

[[Lepe]]

File --> New --> project
- Necesitas un label, un timer y un botón puestos en la ventana

El código es este:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    Cuenta:Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Cuenta := 59;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:= Format('Restan %d segundos',[cuenta]);
  Timer1.Enabled:= True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Dec(Cuenta);
  Label1.Caption:= Format('Restan %d segundos',[cuenta]);
  if Cuenta = 0 then
  begin
    label1.caption := 'TIEMPO FINALIZADO';
    Timer1.Enabled:= False;
    ShowMessage('Aqui debes apagar el sistema');

  end;

end;

end.

[unko!]

puse el codigo y no me funciona, el label se queda con el nombre label1 y no cambia

[[Lepe]]

Asigna los eventos:

- OnClick del boton
- OnTimer del timer
- Form Create.

¿ o acaso esperas que delphi sepa que has pegado ese código desde el portapapeles?

[unko!]

Ya esta, habia escrito algo de mas :S.

PD--> cuidado como contestas bro, no seas tan agresivo

[[Lepe]]

Unco, ruego encarecidamente que te bajes la cara oculta de delphi 4 (he puesto el enlace directo al archivo para que no tengas problemas en la descarga) y aprendas lo básico como debe ser, si digo esto es en tu propio beneficio, ya que, al estudiar códigos de otras personas, puede que inherentemente estes aplicando técnicas incorrectas o mucho peor, que estes aprendiendo formas incorrectas de programación.

El foro siempre está para resolver dudas puntuales, ver otras técnicas y estilos de programación. Ésto debe hacerse cuando tengas un nivel en el que puedas evaluar si la técnica que te proponen es la más adecuada para tí.

Por ejemplo, para escribir un Procedure, tú puedes hacerlo a mano, es decir, escribir:

Código Delphi [-]
procedure Actualiza();
begin

end;

Sin embargo, si escribes "procedure" y pulsas la combinación de teclas CTRL+J delphi escribirá automaticamente:

Código Delphi [-]
procedure ();
begin

end;

y dejará el cursor a la izquierda de los parentesis para que escribas "Actualiza"

Aprender esto cuando llevas varios años programando es como si te dieran un mazazo en la cabeza, ¿no crees? Y reconozco que a muchos nos ha pasado Por esto, y muchisimas cosas más, te sugiero que tomes el consejo en serio.

Un abrazo, Lepes.