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

Question

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

Answer 1

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

Answer 2

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