Округление дробного числа до N знаков после запятойDelphi , Синтаксис , МатематикаОкругление дробного числа до N знаков после запятойАвтор: Perceptron function RoundEx(chislo: double; Precision: Integer): string; var ChisloInStr: string; ChisloInCurr: currency; begin ChisloInCurr := chislo; Str(ChisloInCurr: 20: Precision, ChisloInStr); ChisloInStr[Pos('.', ChisloInStr)] := ','; RoundEx := Trim(ChisloInStr); end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := RoundEx(StrToFloat(Edit1.Text), 2); end; Статья Округление дробного числа до N знаков после запятой раздела Синтаксис Математика может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Математика ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |