Скачать: CL | DM;

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

← →
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]

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

---

← →
Юрий Зотов ©   (2008-08-31 19:59) [7]

> dars73 ©   (31.08.08 19:04) [4]

Возможно, эти функции находятся в разных модулях?
:о)))))))

---

← →
dars73 ©   (2008-08-31 21:16) [8]

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

---

← →
Германн ©   (2008-09-01 01:19) [9]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c