Cronometrar un tiempo
 

Hola compis,
Mi tarea de hoy es controlar el tiempo que transcurre hasta que pulso un botón. Sé que el componente Ttimer lo puedo programar para realizar una tarea, pero mi problema es el siguiente...
Yo programo una tarea para que se ejecute cada cierto tiempo con el TTimer, pero a la vez tengo un botón para ejecutar esa tarea cuando me plazca. Pues bien, necesito saber en todo momento el tiempo que ha transcurrido desde la última vez que se realizó la tarea, ya sea por el evento TTimer o por la pulsación del botón. Cada vez que ocurre uno de los dos eventos el timer si reinicia.

Gracias a todos!!! :p

Guarda en una variable la hora a la que se ejecutó la última vez:

Código Delphi [-]
type
  TForm1 = class(TForm)
  ...
  private
    FTiempoTranscurrido: TDateTime;
    FHoraUltimoProceso: TDateTime;
...

procedure TForm1.Procesar;
begin
  if FHoraUltimoProceso <> 0 then
    FTiempoTranscurrido := now - FHoraUltimoProceso;
  FHoraUltimoProceso := now;
  // procesar
end;

Hasta luego.

;)

Lo primero es darte las gracias por tu aportación...
y lo segundo comentarte que me da un fallo a la hora de ejecutarlo.

En una estructura me he creado un campo llamado:
UltimaActualizacion : TDateTime
Por otra parte cuando se crea el Form hago la siguiente asignación que es donde da el fallo de ejecución:
UltimaActualizacion := now;

¿Qué puedo estar haciendo mal?¿Me falta algo como TDateForm.create?

Gracias de nuevo...

Edito : Me he equivocado

Por favor, sin saber cual es el fallo, imposible!. Lee el hilo de la calidad de las preguntas.

Hasta luego.

;)

El fallo que me da es una excepción de violación a una dirección más concretamente me da: "EAccessViolation with message 'Access violation at address...'"

Salu2

Bueno, evidentemente estas usando un puntero no válido. Esto puede ser al usar una referencia a un objeto que no ha sido creado o bien usar una referencia a un objeto que ya fue destruido. Ejecutando paso a paso podrás ver cuál es la variable que da el problema y con suerte, figurarte de una vez la solución.

Hasta luego.

;)