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中不能用。我是問 ：怎么改？
2 回答
寶慕林4294392
TA貢獻2021條經驗 獲得超8個贊
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]);
添加回答
舉報
0/150
提交
取消