首頁猿問您好，該如何利用delphi取整函...

您好，該如何利用delphi取整函數(shù)呢？有什么好辦法？

Java .NET

HUX布斯 2021-07-22 17:15:27

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;怎么能用一個函數(shù)解決這個單精度轉(zhuǎn)化為數(shù)組能用的整形？FloatToInt 根本沒這個函數(shù)。Integer(x)在delphi中不能用。我是問：怎么改？

查看完整描述

2 回答

寶慕林4294392

TA貢獻(xiàn)2021條經(jīng)驗獲得超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]);