一个double型的变量，怎样才能变integer型的？

Question

如题，抛弃高位数据,怎么弄阿？

Answer 1

Round()四舍五入不知道复合你的要求不?
或者Trunc

Answer 2

但是要赋值给一个整型变量阿
其实我的问题是这个样的：
var
  i, j, q: integer;
  prii_y: integer;
  prii_mid: double;
  prii_x, temp1, temp2: integer;
  x0, y0: integer;
begin
  x0 := x1;
  y0 := y1;
  getFun(0, y1, x2, y2);
  for i := x1 to x2 do
  begin
    prii_x := i - x1;
    prii_y := grii_a * prii_x * prii_x + grii_b * prii_x;// 这一句不通过，里面都是整型变量
    //但是把prii_y 换成double型的就行了，下面的就通不过了
    
    sender.Canvas.LineTo(i, prii_y);// 里面的参数必须是整型的
    x0 := i;
    y0 := prii_y;
  end;
end;

Answer 3

我下面这样测试编译不会出错，你grii_a，grii_b不是Integer类型吧
var
  Form1: TForm1;
  grii_a,grii_b:integer;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, q: integer;
  prii_y: integer;
  prii_mid: double;
  prii_x, temp1, temp2: integer;
  x0, y0: integer;
begin
  i:=3;
  j:=4;
  prii_x := 2;
  prii_y := grii_a * prii_x * prii_x + grii_b * prii_x;//不会出错end;