Cita:
Empezado por poliburro
Edt1.Font.Color := ClRed
|
Gracias poliburro. Lo he probado y a la verdad no se porque no me funciona.
seguire investigando. Algo estoy haciendo mal.E57 := StrToFloatDef(Edit35.Text,0)+StrToFloatDef(edit36.Text,0)+StrToFloatDef(Edit37.Text,0)+StrToFloatDef (Edit38.Text,0)+StrToFloatDef(Edit39.Text,0)+StrToFloatDef(Edit40.Text,0)+StrToFloatDef(Edit41.Text, 0) ;
Edit57.Text := FloatToStr(e57) ;
if e57 < 0 Then
edit57.Font.Color := clRed ;