rznumeric设置小数点后两位

ayajin := FloatToStr(Trunc(StrToFloat(edt_yajin.Text)) + RoundTo(Frac(StrToFloat(edt_yajin.Text)),-2));

edt_yajin.DisplayFormat := '0.00;( 0.00)';

转载于:https://blog.51cto.com/kaixinbuliao/1242465