库存管理软件版1楼: 如题？

2楼: 用floattostr把,自动四舍五入 如免费的超市管理软件

3楼: ymg1103 有： 66个待答问题， 1个已答问题， 回答了： 5 个问题

4楼: 他N个问题答了都不结帖的(0分都不结),唉.

5楼: 呵呵,大富翁这种人很多啊,我早就见怪不怪了!

6楼: BS一下

库存管理软件版7楼: 严重BS

8楼: 鄙视一下后，再日一下。嘿嘿！

9楼: var

S, T: string;

begin

Str(1.4:2:1, T);
S := T + ＇＇ rounds to ＇＇ + IntToStr(Round(1.4)) + #13#10;
Str(1.5:2:1, T);
S := S + T + ＇＇ rounds to ＇＇ + IntToStr(Round(1.5)) + #13#10;
Str(-1.4:2:1, T);
S := S + T + ＇＇ rounds to ＇＇ + IntToStr(Round(-1.4)) + #13#10;
Str(-1.5:2:1, T);
S := S + T + ＇＇ rounds to ＇＇ + IntToStr(Round(-1.5));
MessageDlg(S, mtInformation, [mbOk], 0, mbOk);
end;

10楼: 垃圾
0分