| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Округление чисел [D7, XP]

dars73 ©   (2008-08-31 18:36:00) 

Немогу округлить число до второго знака после запятой, стандартной функцией
В 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-09-01 01:19:00) [1]

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

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

---

dars73   (2008-08-31 21:16:00) [2]

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

---

Юрий Зотов   (2008-08-31 19:59:00) [3]

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

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

---

Anatoly Podgoretsky   (2008-08-31 19:15:00) [4]

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

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

---

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

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

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

---

dars73   (2008-08-31 19:04:00) [6]

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

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

---

dars73   (2008-08-31 19:00:00) [7]

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

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

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

---

Renegat   (2008-08-31 19:00:00) [8]

uses Math;

---

Германн   (2008-08-31 18:51:00) [9]

> Не работает

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

---

Наверх