hsr///////////////////////////////////////////////////
아래 말씀하신 포멧류의 함수를 사용하시면 편리함니다.
참고로
SetRoundMode와 RoundTo 함수를 헬프에서 찾아보세요.
둘다 Math 유닛에 있습니다.
SetRoundMode으로 절사 반올림등을 선택하시구요
RoundTo의 용도는 여러가지입니다.
procedure TForm1.Button1Click(Sender: TObject);
var
f : Double;
begin
f := 1.245;
SetRoundMode(rmTruncate);
showmessage(FloatToStr(RoundTo(f, -2)));
end;
아래 말씀하신 포멧류의 함수를 사용하시면 편리함니다.
참고로
SetRoundMode와 RoundTo 함수를 헬프에서 찾아보세요.
둘다 Math 유닛에 있습니다.
SetRoundMode으로 절사 반올림등을 선택하시구요
RoundTo의 용도는 여러가지입니다.
procedure TForm1.Button1Click(Sender: TObject);
var
f : Double;
begin
f := 1.245;
SetRoundMode(rmTruncate);
showmessage(FloatToStr(RoundTo(f, -2)));
end;