Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Contador Visual con Delphi (https://www.clubdelphi.com/foros/showthread.php?t=31110)

ajrudilla 28-04-2006 08:17:01

Contador Visual con Delphi
 
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] 28-04-2006 09:31:41

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 28-04-2006 09:48:58

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] 28-04-2006 10:48:14

Cita:

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

Correcto, es para que se ejecute cada 1000 milisegundos.

Cita:

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 28-04-2006 11:38:20

Gracias.Voy a ver si me sale.


La franja horaria es GMT +2. Ahora son las 15:19:40.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi