De String A Time

[ugezuz]

HOLA COMO ESTAN TODOS; LES MANDO SALUDOS. tengo un pequeño problema tengo una funcion:


function TfrAgregarAsignaturas.validahora(hora,minutos:Integer;segundos,time:string):TdateTime;
var horaCadena,MinutosCadena,horaFinalCadena:string;
begin if ((hora <= 12) and (hora >= 0)) then begin
if ((minutos>=0)and(minutos<=60)) then begin
horaCadena:= IntToStr(hora);
MinutosCadena:=IntToStr(minutos);
horaFinalCadena:= horaCadena + ':' + MinutosCadena + ':'+ segundos; //+' '+ time;
horaTutoria:= StrToTime(horaFinalCadena);
end else begin
ShowMessage('POR FAVOR VERIFIQUE LOS MUNUTOS QUE ESTABLECIO');
EMinutos.SetFocus;
end;
end else begin
ShowMessage('POR FAVOR VERIFIQUE LA HORA QUE ESTABLECIO');
Ehora.SetFocus;
end;
Result:=horaTutoria;
end;




yo mando los valores por separado pero al momento de convertirlo a TTime no de vuelve el valor que es no entiendo que paso si yo lo pruebo con una cadena directamente como '7:00:00' y me funciona a la perfeccion.


Cualquier ayuda se la agradeciria....
Gracuias--


UGEZUZ

[marcoszorrilla]

Yo la función en sí la dejaría:

cHora:TTime;
begin
Try
cHora:=StrToTime(Lo_que_sea);
Except
ShowMessage('El formato de fecha es incorrecto');
edit1.SetFocus;
end;
end;

Un Saludo.

[ContraVeneno]

Yo usaría un TDTPicker en lugar de un TEdit... de esa manera no necesito de ningún código para validad una fecha o una hora....