Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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)));

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

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


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



Олег Бамбизов   (2002-03-18 18:26) [1]

Естественно.
Поставь вместо
Round(StrToFloat(Edit1.text)),
Trunc(StrToFloat(Edit1.text))



Олег Бамбизов   (2002-03-18 18:29) [2]

А еще лучше
copy(Edit1.text,1,length(pos(",",Edit1.text)-1))



IronHawk   (2002-03-18 18:49) [3]


> Олег Бамбизов

Вери БИГ Сенкс !
Первый вариант в самый раз !
У меня просто связи там ещё кое какие есть !
ВСЁ СПАСИБО !
Само оно !




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




Наверх





Память: 0.72 MB
Время: 0.016 c
14-91047          макар                 2002-02-13 17:38  2002.03.28  
Может кто-нибудь знает


1-90856           IgoX                  2002-03-16 23:01  2002.03.28  
dll функции


7-91088           Pat                   2001-12-26 21:38  2002.03.28  
FAR. Список процессов.


1-90904           Sound                 2002-03-18 13:06  2002.03.28  
Срочно нужна помощь!!! Как встроить в Delphi приложение компилятор Pascal?


14-91051          Королев               2002-02-12 18:51  2002.03.28  
считаете ли вы, что возможно появление некого второго поколения людей...