Borrar Edit automático

[ecfisa]

Aunque si quiero seguir añadiendo cosas al Edit, me lo borra automaticamente despues de llegar la hora, supongo que habra alguna manera de que solo funcione a la hora en punto exacto y no a partir de la hora en punto.

Hola Groonan.

El código anterior limpia el texto del TEdit cuando llega a una hora en punto, no entiendo bién que es lo que deseas hacer.

Un saludo.

[ecfisa]

Hola de nuevo.

Ahora entiendo el problema , te lo sigue limpiando hasta que se cumpla el minuto 1...

Entonces probá de este modo:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (MinuteOf(Now)=0)and(SecondOf(Now)=0) then
    Edit1.Text:= '';
end;

Saludos.

[[oscarac]]

lo mismo pense.. el segundero aun no llega a 60...

debo ser mas rapido... es escribir... ecfisa me gana todas

[Groonan]

PERFECTO !!!!

Gracias a los dos. Se que las personas tenemos cada una un problema espefico y muchas veces, si ademas el que pregunta es tan novato como yo, vosotros contestais de la mejor manera posible, pero me imagino que os cuesta comprender a nuestras peticiones.

He empezado a trabajar en la puerta de un lugar donde tengo que controlar el aforo que entra y sale cada hora...manualmente. Gracias a vosotros dos acabo de crear el programa que me va a evitar usar el boligrafo y papel durante las 9 horas de trabajo.

Gracias de nuevo y si yo puedo ayudaros en algo, contad conmigo.

Un saludo.

[[Chris]]

Execelente codigo Ecfisa!

Solo quisiera agregarle algo:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if SecondOf(Now) = 0 then
    TTimer(Sender).Interval := 60000; // ejecutarse cada 60 segundos

  if (MinuteOf(Now)=0)and(SecondOf(Now)=0) then
    Edit1.Text:= '';
end;

Con eso el codigo el Timer empezara a ejecutar cada minuto, en lugar de cada segundo, aliviando un poco el procesador y la aplicacion. Se pudiera hacer algo similar para que el codigo se ejecutase cada hora, pero los cronometros no son muy precisos y al final terminarias con impresiciones de un par de segundos si aunmentas el intervalo en una hora por ejemplo.

Saludos,
Chris

PD.: Disculpen la ausencia de acentos, estoy usando un LiveCD de Ubuntu y no se me configuro correctamente el teclado