您好，该如何利用delphi取整函数呢？有什么好办法？

Question

var
tsingle:single;
tarray:array[1..10]of single;
begin
tsingle:=1.5;
//for tsingle:=1 to 10
repeat
tarray[tsingle]:=tsingle*2; //这句编译错误
tsingle:=tsingle+1;
until tsingle>9;
label1.Caption :=floattostr(tarray[8]);
end;
怎么能用一个函数解决这个单精度转化为数组能用的整形？
FloatToInt 根本没这个函数。
Integer(x)在delphi中不能用。
我是问 ：怎么改？

Answer 1

vartsingle: single;tarray: array[1..10] of single;begintsingle := 1.5;//for tsingle:=1 to 10repeattarray[trunc(tsingle)] := tsingle * 2; //这句编译错误tsingle := tsingle + 1;until tsingle > 9;label1.Caption := floattostr(tarray[8]);

Answer 2

tarray[tsingle]:=tsingle*2; //这句编译错误这个当然有错误了，数组里的下标必须是整形