¿Como sumar un valor de un edit y reflejar incremento en el mismo?
 

Estimados amigos de Club Delphi:

Les saludo con un feliz Navidad Atrasado y un prospero año nuevo. Escribo en este hilo por que quisiera que me ayuden con un problemilla que tengo programando en Delphi:

Quisiera crear una pequeña aplicación que funciona de la siguiente forma:

Tengo un edit, un timer y un botón de salir.

Lo que quiero que haga esta aplicación es representar una simulación de un incremento de un valor actual en función del tiempo. Por ejemplo:

Tengo el valor por defecto en el Edit1: 123456. El timer está programado para que cada 5 segundos, ocurra que haya un cambio en el valor actual, incrementándome este valor en 25. O sea:

Al inicio: 123456
Después de 5 Segundos: 123456+25

y así sucesivamente.

Espero que se entienda la idea, y bueno, quisiera que me ayuden.

Se agradece, y una vez más, felices fiestas para todos los usuarios y moderadores de ClubDelphi.

Hola,

Hombre, en principio se trata de aprovechar el evento "OnTimer" del "TTimer" con unas instrucciones más o menos como estas:

Código Delphi [-]
// Esto iría dentro del evento "OnTimer"
var
  i: integer;
begin
  i := 0;
  if TryStrToInt(Edit.Text, i) then
  begin
    i := i + 25;  
  end;
  Edit.Text := IntToStr(i);
end;

Hola
En principio me quede pensando en una suma, pero con esto:
Me parecio que se queria colocar el numero consecutivamente.
Puesto que no indico esto:
Bueno, por si acaso:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
numero: Integer;
begin
 Numero:= 25;
   Edit1.Text:= Edit1.Text + IntToStr(Numero);
end;

Saludos

Dec, Caral, agradezco que hayan contestado mi consulta. Lo estoy anotando y probaré ambas opciones en Delphi 7. Si llego a tener dudas, consultaré.

Una Vez más, Gracias y Felices fiestas.