请问如何把 SmallInt 转为 integer类型

解决方案 »

  1.   

    var
      si: SmallInt;
      i: Integer;
    begin
      si := -20;
      i := si;
    end;
      

  2.   

    直接赋给一个integer的变量么就行了
      

  3.   

    没必要转换,同意楼上
    SmallInt:-2^15~2^15
    Integer:-2^31~2^31
    var
      Int16: SmallInt;
      Int32: Integer; 
    begin
      Int16 := SmallInt(Int32);
      Int32 := Integer(Int16) //多余
    end;
      
      

  4.   

    加个integer 就成了  
      

  5.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      small: smallint;
      int: integer;
    begin
      small := 100;
      int := Integer(small);
      showmessage(IntToStr(int));
    end;实际上是可以自动转换的。
    也可以现式转换。