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

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

Фунция Round [D6, 2000]

rsboarder ©   (2005-11-25 10:50:00) 

Хелп ми! Я новичек в этом деле....скажите,как огруглить значение введенное в Edit

---

rsboarder   (2005-11-25 21:16:00) [1]

thks

---

EditRound   (2005-11-25 19:43:00) [2]

>а не по нажатию?


procedure EditRound;
begin
 Form1.Edit1.Text:=inttostr(round(strtofloat(Form1.Edit1.Text)));
end;


---

rsboarder   (2005-11-25 19:32:00) [3]

а не по нажатию?

---

Antonn   (2005-11-25 18:49:00) [4]

Ega23 ©   (25.11.05 15:56) [3]
С фига-ли?
телепатор использует...

---

Ega23   (2005-11-25 15:56:00) [5]

> Разделитель - запятая.
>


С фига-ли?

---

Edit1   (2005-11-25 15:40:00) [6]


procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=inttostr(round(strtofloat(Edit1.Text)));
end;


Разделитель - запятая.

Как вводить только дробные числа:
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1132920391&n=18

---

Sergey13   (2005-11-25 10:57:00) [7]

Так надо Round не в форуме писать, а в программе. В чем проблема то?

---

Наверх