De un memo a un TDataTime

[jorgegetafe]

Empezado por egostar

Porque estas usando la conversion de los time, porque no tratas con esto


Código Delphi [-]
Label3.Caption := hora.Text+':'+minuto.Text+':'+segundo.text;
Edito: Si prefieres trabajar con valores time, debes de hacer lo que te comento, validar los edit antes de hacer la conversion a time.

La verdad es que prefiero trabajar con valores time, para que me sea más facil restar un tiempo de otro, sino de la otra forma es un lio padre.

Respecto a la validación, se hacerla de forma estatica, es decir, pillar un edit y ver si es correcto o no, pero no se hacerlo en "tiempo real", osea, que a la vez que el usuario vaya introduciendo por teclado ir viendo si esta bien (le dejo que escriba), o si lo ultimo que acaba de escribir esta mal y se lo borro.
¿Me he explicado?

[[egostar]]

Empezado por jorgegetafe

La verdad es que prefiero trabajar con valores time, para que me sea más facil restar un tiempo de otro, sino de la otra forma es un lio padre.

Respecto a la validación, se hacerla de forma estatica, es decir, pillar un edit y ver si es correcto o no, pero no se hacerlo en "tiempo real", osea, que a la vez que el usuario vaya introduciendo por teclado ir viendo si esta bien (le dejo que escriba), o si lo ultimo que acaba de escribir esta mal y se lo borro.
¿Me he explicado?

Se me ocurre que podrias usar el evento onChange y OnExit de cada edit.

Por ejemplo

en el evento OnChange, verificas que no escriba letras
en el evento OnExit, verificas si es un dato válido (00-24 para las horas y 00-60 para minutos y segundos) en caso de ser no válido regresas el foco a el edit.

Salud OS

[jorgegetafe]

Vale muchas gracias, mañana seguiré con ello, ya es un poco tarde que hay que madrugar, ya tendreis noticias cuando grite socorro jajaja


gracias por todo de verdad, chao!!!

[jorgegetafe]

Ya he retomado el programa jeje :-)

A ver si me ayudais con esto que por más que le doy vueltas no consigo ver el error, de tres edits consigo la hora introducida por el usuario y quiero calcular cuanto tiempo queda desde la hora actual, hasta la hora que ha introducido el usuario, lo hago de esta manera:

Código Delphi [-]
 
PROCEDURE TForm1.RestanteTimer(Sender: TObject); // Muestra la hora restante
VAR
a: ttime;
b: ttime;
c: ttime;
BEGIN
a:= now;
b:= EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)));
c:= b-a;
label3.caption:= timetostr (c);
//Label3.caption:= TimeTostr(EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)) ));
END;

Pero siempre el tiempo restante que me sale es muchísimo mayor de lo que deberia, es decir, si el usuario me pone las 10:00 y actualmente son las 9:00 me sale que faltan 23 horas!!!! y además cada segundo va aumentando el tiempo restante en vez de disminuirse!!!! No tiene ni pies ni cabeza :-(

[jhonny]

La hora actual es mayor que la anterior, entonces deberias restar a-b y no b-a.

[jorgegetafe]

Ahí esta el problema, da igual si pongo a-b que b-a que el resultado del tiempo restante siempre es el mismo, lo acabo de comprobar otra vez por si acaso y nada.

A mi no se me ocurre porque falla :-(

[jhonny]

Tambien puedes hacer:

Código Delphi [-]
procedure Hora_restante; //Muestra la hora restante
var
  b: ttime;
begin
  b:= EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)),   (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)));
  label3.caption:= IntToStr(HoursBetween(Now, b));
end;

[jorgegetafe]

No estoy seguro de que esa funcion me sirva porque tan solo calcula la diferencia de horas, es decir, de 10:00 a 10:59 daria como resultado cero, y quiero que salgan horas, minutos y segundos...

gracias.