De un memo a un TDataTime

[jorgegetafe]

¿Qué hago mal poniendo esto?

Código Delphi [-]
Label3.caption:= EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)) );

Donde los tres parametros que le paso son el text de los edit respectivos.

Me dice que incompatible String con tdatatime

Thanks

[[poliburro]]

Código Delphi [-]
 
Label3.caption:= TimeTostr(EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)) ));

[jorgegetafe]

Genial arreglaste mi problema :-)

Una cosilla (creo que os deberia pagar por todo lo que me ayudais jaja), ya he conseguido que mediante tres edit introducidos por el usuario se muestre la hora que es en un label, que lo muestro con un ttimer, que pasa, que si pilla el ttimer con alguno de los edit en blanco de la hora, WUEEEEE!!! fallo del programa, alguien sabe como corregir eso?

Por cierto prefiero trabajar con variables de tiop tiempo porque necesito hacer restas y demas.

[[poliburro]]

Empezado por jorgegetafe

Genial arreglaste mi problema :-)

Una cosilla (creo que os deberia pagar por todo lo que me ayudais jaja),

Con que te conviertas a premiun nos daremos por bien servidos

[[egostar]]

Empezado por jorgegetafe

Genial arreglaste mi problema :-)

Una cosilla (creo que os deberia pagar por todo lo que me ayudais jaja), ya he conseguido que mediante tres edit introducidos por el usuario se muestre la hora que es en un label, que lo muestro con un ttimer, que pasa, que si pilla el ttimer con alguno de los edit en blanco de la hora, WUEEEEE!!! fallo del programa, alguien sabe como corregir eso?

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

Código Delphi [-]
Label3.Caption := hora.Text+':'+minuto.Text+':'+segundo.text;

Solo que aquí veo otro problema, si capturan la hora puede ser que escriban datos erróneos, necesitas validar cada edit, por ejemplo que no coloquen letras solo números, que las horas sean entre 00 y 24, que los minutos y segundos sean entre 00 y 60.

Y como te dice mi amigo poliburro, sería un buen gesto de tu parte hacerte miembro premium.

Salud OS

Edito: Si prefieres trabajar con valores time, debes de hacer lo que te comento, validar los edit antes de hacer la conversion a time.

[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!!!

[[egostar]]

Empezado por jorgegetafe

¿Qué hago mal poniendo esto?

Código Delphi [-]
Label3.caption:= EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), 
                                       (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)) );

Donde los tres parametros que le paso son el text de los edit respectivos.

Me dice que incompatible String con tdatatime

Thanks

Necesitas pasar la variable Time a String así

Código Delphi [-]
Label3.caption:= TimetoStr(EncodeTime( (StrtoInt(hora.Text)), (StrtoInt(minuto.Text)), 
                                     (StrtoInt(segundo.Text)), (StrtoInt(msegundo.Text)) ));

Sin embargo, para que quieres hacer ese casting, no seria mas facil así:

Código Delphi [-]
Label3.Caption := hora.Text+':'+minuto.Text+':'+segundo.text;

Salud OS