Question

delphi 取整函数

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

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; //这句编译错误
这个当然有错误了，数组里的下标必须是整形