| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема, разыва дробного числа ! [D5, Win95/98, NT4, Win2k]
IronHawk © (2002-03-18 18:19:00)Приветствую Мастеров!
Есть: три едита; Едит1,Едит2, Едит3 и Бутон!
Надо: по клику на Бутон считывать дробное число (скажем 987,54)
из Едит1 и бросать в Едит2 всё что до запятой, а в Едит3 бросать всё что после запятой !
Так : Едит1 (987,54)
Едит2 (987)
Едит3 (54) "без скобок ессно !"
Я пробовал так :
Edit2.Text:=IntToStr(Round(StrToFloat(Edit1.text)));
Edit3.Text:="0,"+(copy(Edit1.text,pos(",",Edit1.text)+1,length(Edit1.text)));
Но оно округляет, а подругому отталкнуться немогу !
.... как реализовать
..... заранее благодарен !
IronHawk (2002-03-18 18:49:00) [1]
> Олег Бамбизов
Вери БИГ Сенкс !
Первый вариант в самый раз !
У меня просто связи там ещё кое какие есть !
ВСЁ СПАСИБО !
Само оно !
Олег Бамбизов (2002-03-18 18:29:00) [2]А еще лучше
copy(Edit1.text,1,length(pos(",",Edit1.text)-1))
Олег Бамбизов (2002-03-18 18:26:00) [3]Естественно.
Поставь вместо
Round(StrToFloat(Edit1.text)),
Trunc(StrToFloat(Edit1.text))
| |
