初学者 问实数计算及转换的方法

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  JiShu,J300: Real;
begin
  if StrToInt(Edit2.Text) > 300 then
  begin
    JiShu := (StrToFloat(Edit2.Text) - 300) / 0.3;
    J300 := (J300 - StrToFloat(Edit1.Text)) / 0.1;
    Edit3.Text := FloatToStr(J300);
    Edit4.Text := FloatToStr(JiShu + J300);
  end;
end;上面这一段代码只是我为了试一下正确性,结果是不对的.
诸位大侠你们给说说Real类如何计算.

Answer 1

你把Edit2的值设为一大于300的整数看看，如：400

Answer 2

我大意造成的,一直把问题想到了问题是不是出在转换上,  J300 := (J300 - StrToFloat(Edit1.Text)) / 0.1;  应该这么才对  J300 := (300 - StrToFloat(Edit1.Text)) / 0.1;