Hola a todos.
Tengo una duda con el codigo siguiente que me genera un error de x is not a valid integer value en las lineas que estan marcadas en rojo.
Lo que quiero hacer con este codigo es sacar a partir de un tiempo inicial, el de MaskEdit2.Text (ej. 03:25:45) un porcentaje de tiempo del cual pongo el valor (ej. 12) en JVvalidateEdit2 y desde aqui sacar este valor en tiempo (MaskEdit3.text) y el valor inicial + el porcentaje en Maskedit4.text.
El problema viene en la asignacion del valor a las variables Hores, Minuts i Segons.
Código Delphi
[-]
procedure TF_Calculadora.JvXPButton2Click(Sender: TObject);
var
H: Ttime;
Hora, Minuto, Segundo, Msec: Word;
J,K : Double;
Hores, Minuts, Segons: Integer;
begin
H:=StrToTime(MaskEdit2.Text);
DecodeTime (H, Hora, Minuto, Segundo, Msec);
J:=(Hora*3600)+(Minuto*60)+Segundo;
K:=J*StrToFloat(JvValidateEdit2.text)/100;
Hores := StrToInt(FloatToStr(K)) div 3600;
Minuts := StrToInt(FloatToStr(K)) div 60 mod 60;
Segons := StrToInt(FloatToStr(K)) mod 60;
MaskEdit3.Text:= TimeToStr(EncodeTime (Hores, Minuts, Segons,Msec));
Maskedit4.text:=TimeToStr(StrToTime(MaskEdit2.Text)+StrToTime(MaskEdit3.Text));
end;
Si alguien me echa un cable....
Gracias por adelantado
Josep