Gracias a los que me han ayudado en la realización de este pequeño proyecto que me ayudaron a hacer
Ahora tengo otra pregunta quiero que este procedimiento
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit10.Text := FloatToStr((StrToFloat(Edit6.Text)+StrToFloat(Edit8.Text)+StrToFloat(Edit9.Text))/3)
end;
Me muestre solo 2 lugares después de la coma(,) es decir 456,25
|