freepascal - 如何在 Tedit 中划分一个值并使用 freepascal 在标签中获取答案的小数部分

Question

var
  val1: LongInt;
  val3: LongInt;

procedure TForm1.Button1Click(Sender: TObject);
begin
  val1 := StrToInt(Edit1.Text);
  val3 := (val1 DIV 2);
  Label2.Caption := FloatToStr(val3);
end;

标签： freepascal

Answer 1

您需要进行浮点除法而不是整数除法。

var
  val1: LongInt;
  val3: Double;

procedure TForm1.Button1Click(Sender: TObject);
begin
  val1 := StrToInt(Edit1.Text);
  val3 := Double(val1) / 2.0;
  Label2.Caption := FloatToStr(val3);
end;

或者：

var
  val1: Double;
  val3: Double;

procedure TForm1.Button1Click(Sender: TObject);
begin
  val1 := StrToFloat(Edit1.Text);
  val3 := val1 / 2.0;
  Label2.Caption := FloatToStr(val3);
end;