var si: SmallInt; i: Integer; begin si := -20; i := si; end;
直接赋给一个integer的变量么就行了
没必要转换,同意楼上 SmallInt:-2^15~2^15 Integer:-2^31~2^31 var Int16: SmallInt; Int32: Integer; begin Int16 := SmallInt(Int32); Int32 := Integer(Int16) //多余 end;
加个integer 就成了
procedure TForm1.Button1Click(Sender: TObject); var small: smallint; int: integer; begin small := 100; int := Integer(small); showmessage(IntToStr(int)); end;实际上是可以自动转换的。 也可以现式转换。
si: SmallInt;
i: Integer;
begin
si := -20;
i := si;
end;
SmallInt:-2^15~2^15
Integer:-2^31~2^31
var
Int16: SmallInt;
Int32: Integer;
begin
Int16 := SmallInt(Int32);
Int32 := Integer(Int16) //多余
end;
var
small: smallint;
int: integer;
begin
small := 100;
int := Integer(small);
showmessage(IntToStr(int));
end;实际上是可以自动转换的。
也可以现式转换。