De String A Time

[ugezuz]

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

Código Delphi [-]
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:

Código Delphi [-]
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....