Cita:
Empezado por Caral
Hola
Excepción ?????
Osea: Quieres que si alguno de los edits esta en blanco salte una execpcion????.
Osea: Quieres dejar que se equivoquen ????.
Osea: mmmmmm.
No hace falta una excepcion cuando se puede hacer que la funcion trabaje dependiendo de .......
Código Delphi [-]Function TForm1.TransformaTiempo:Real; var h,m,s : Integer; Begin h:= StrToint(Edit1.Text); m:= StrToint(Edit2.Text); s:= StrToint(Edit3.Text); If h or m or s <> StrToInt('') then // aqui esta la excepcion TransformaTiempo:= h*3600 + m*60 + s; End;
Saludos |
Buena solución! gracias por ayudarme a pensar! te agradzco mucho de verdad!
Aunque estando algún casillero en blanco, el programa sigue "crasheando" con eso de que "EConvertError ''' is not a valid integer... bla bla bla.