|
Gracias por tu respuesta y es una solucion valida, mira este ejemplo cuando haces un debug y ves el valor de a no es 0 sino un numero muy pequeño-7,algo E-16 y ahi no tengo strings
procedure TForm1.yo(u:real);
var
a:real;
begin
a:=16.8-u;
//showmessage(FormatFloat('0.00', a));
//showmessage(floattostr(a));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
yo(16.8);
end;
tiene q ser algo con la presicion pero la verdad q no veo donde esta el error .Saludos
|