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; 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