少数点データの処理

 
少数点付きのデータの扱い

型は　Realで指定

wwSuuR : Real;
wwHBairituR : Real;



//数値でない場合、0.0をセット

Try
try
wwSuuR := StrToFloat(wwStr);
except
TE_Zaiko[wwI] := '0.0';
end;
finally
end;





//数値のチェック

Try
try
wwSuuR := StrToFloat(wstr);
except

//数値ではありません
wwSuuR := 0;
end;
finally
End;


//在庫数÷包装倍率(少数第三位四捨五入)


wwSuuR : Real;
wwHBairituR : Real;
wwHB : String;
wwSuuM : String;
wwSuu : Real;

Try
try
wwSuuR := StrToFloat(wwEXZaiko);

except
wwSuuR := 0;
end;
finally
end;

wwSuuR := wwSuuR / wwHbairituR;
wwSuuR := Math.RoundTo(wwSuuR, -2);
wwEXZaiko := floattostr(wwSuuR);