Question

怎么控制float类型数据的小数点以后的位数？

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);var k:single;//pascal下没float型，其single相当于c中的float s:string; i:integer; f:boolean;begin k:=76.258; k:=round(k*10)/10 ; s:=floattostr(k); i:=1; f:=true; while (i<length(s)) and f do begin if s[i]='.' then f:=false else i:=i+1; end; s:=copy(s,1,i+1); showmessage(s);end; 查看原帖>>

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject)；var k:single；//pascal下没float型，其single相当于c中的float s:string； i:integer； f:boolean;begin k:=76.258； k:=round(k*10)/10 ； s:=floattostr(k)； i:=1； f:=true； while (i<length(s)) and f do begin if s[i]='.' then f:=false else i:=i+1； end； s:=copy(s,1,i+1)； showmessage(s)；end；。