Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Вниз

Проблема, разыва дробного числа !   Найти похожие ветки 

← →
IronHawk   (2002-03-18 18:19) [0]

Приветствую Мастеров!
Есть: три едита; Едит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)));

Но оно округляет, а подругому отталкнуться немогу !

.... как реализовать


..... заранее благодарен !

---

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

Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c