Contador Visual con Delphi

[ajrudilla]

Buenos dias a todos. Estoy empezando en esto de programar en Delphi y me gustaria saber si alguien me podria decir como hacer una cosa.Quiero hacer un contador visual que se vaya incrementando, es decir que se vaya viendo en pantalla como se va incrementando(ya sea a traves de una caja texto u otra cosa)como se va incrementando , es decir 0,1,2,3,4,5,6,.........es decir si doi a un TButton se genere esto que he comentado.Y es que no se como hacer esto de que se vaya visualizando el incremento visualmente .
Si alguien me puede echar una ayuda se lo agradeceria.Gracias

[Neftali [Germán.Estévez]]

Utiliza un componente Timer para ejecutar el código cada segundo (por ejemplo).
Programa el intervalo con 1000 (milisegundos) y programa en el evento que se incremente el contador.
Si utilizas un Edit, será algo así:

Código Delphi [-]
var
  i:Integer;
begin
  // No ha empezado todavía (Edit vacío)?
  if (Edit1.Text = '') then begin
    Edit1.Text := '1';
  end 
  else begin
    // Leo lo que hay ahora
    i := StrToIntDef(Edit1.Text, 0);
    // lo incremento en 1
    Edit1.Text := IntToStr(i + 1);
  end;

Es un ejemplo; pruébalo, intenta entenderlo y dinos que tal...

[ajrudilla]

Gracias por contestarme.Una cosa, este codigo lo meto dentro del timer verdad???
Y otra cosilla, que hace la sentencia StrToIntDef(Edit1.Text, 0)??? y la sentencia IntToStr(i + 1)???
Gracias nuevamente

[Neftali [Germán.Estévez]]

Empezado por ajrudilla

Una cosa, este codigo lo meto dentro del timer verdad???

Correcto, es para que se ejecute cada 1000 milisegundos.

Empezado por ajrudilla

que hace la sentencia StrToIntDef(Edit1.Text, 0)??? y la sentencia IntToStr(i + 1)???

Para ir suman e incrementado se usa la variable i (de tipo entero) y para mostrar el resultade se usa un control Edit y su propiedad text (de tipo string); Para poder convertir los varoresentre esos dos tipos se usan estas dos funciones.
* IntToStr o IntToStrDef => De Entero a string añadiendo un valor por defecto por si falla la conversión.
* StrToInt => De string a entero

Mira la ayuda de Delphi, están explicadas bastante bien.

[ajrudilla]

Gracias.Voy a ver si me sale.