Округление чисел

← →
dars73 © (2008-08-31 18:36) [0]

Немогу округлить число до второго знака после запятой, стандартной функцией
В Help Нашел функцию которая округляет числа
RoundTo
написал проверочный код
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var k,n: Double; begin k:=1.458; n:=RoundTo(k,-2); label1.Caption:=Floattostr(n); end; end.

Не работает в чем загвоздка не пойму.
заранее спасибо за разьяснение.
Конечно я могу округлить написав код. Но хотелось бы понять почему не работает.

← →
Германн © (2008-08-31 18:51) [1]

> Не работает

Так прямо и говорит мол: "не работаю и всё тут"?

← →
dars73 © (2008-08-31 19:00) [2]

Извените не подумал.

Компилятор пишет:

[Error] Unit1.pas(31):Udeklared indetifier:"RoundTo"

← →
Renegat © (2008-08-31 19:00) [3]

uses Math;

← →
dars73 © (2008-08-31 19:04) [4]

Спасибо понял. Работает
просто интересно что функция Round работает и фез подключения модуля Math странно почему RoundTo не работала.

Все равно спасибо за помощь.

← →
Германн © (2008-08-31 19:11) [5]

> просто интересно что функция Round работает и фез подключения
> модуля Math странно почему RoundTo не работала.
>

Ничего странного.

← →
Anatoly Podgoretsky © (2008-08-31 19:15) [6]

> dars73 (31.08.2008 19:04:04) [4]

Странно если бы работала

Спасибо всем за помощ. тема закрыта

> Юрий Зотов © (31.08.08 19:59) [7]

Главное ты, Юр, забыл сказать.
При употреблении функции Round не надо явно записывать в uses модуль, в котором она объявлена. Т.е. System.

Округление чисел Найти похожие ветки