Скачать: CL | DM;

Как заставить эдит понимать числа   Найти похожие ветки 

← →
Gnec ©   (2004-08-14 21:14) [0]

Доброго всем времени суток. Вот я хочу например чтобы у меня в одном эдите было какоенибудь число а, а в другом б. При нажатии на кнопку эти числа должны разделиться, сложиться или ещё чтонибудь математическое. Как мне сделать чтобы в эдитах были не Stringi,а числа???

---

← →
YurikGL ©   (2004-08-14 21:23) [1]

Складываем два числа

Edit3.text:=FloatToStr(StrToFloat(Edit1.text)+StrToFloat(Edit2.text))

---

← →
YurikGL ©   (2004-08-14 21:27) [2]

Лучше
try
Edit3.text:=FloatToStr(StrToFloat(Edit1.text)+StrToFloat(Edit2.text));
except
 on e:exception do
 raise Exception.Create("Программа выяснила, что пользователь (или программист) допустили ошибку, приведенную ниже. Код строки 17 модуля 47"+#13+e.Message);
end;

---

← →
Gnec ©   (2004-08-14 21:32) [3]

Спасибо! Щас буду пробовать!

---

← →
Gnec ©   (2004-08-15 15:09) [4]

Спасибо большое!!! Помогло. А теперь у меня тоже вопросик, как сделать так чтобы в эдит вводились только числа, без букв??? И можноли вообще такое замутить?

---

← →
YurikGL ©   (2004-08-15 15:15) [5]

MaskEdit

Или обрабатывать событие OnChange

---

← →
TUser ©   (2004-08-15 15:16) [6]

OnKeyPress
if not key in ["0".."9"] then
if key = "-" then begin
if Edit1.SelStart <> 0 then
key:=#0;
end else
if key = DecimalSeparator then begin
if pos (DecimalSeparator,Edit1.Text) <> 0 then
key:=#0;
end else
key:=#0;

---

← →
YurikGL ©   (2004-08-15 15:32) [7]

> TUser ©   (15.08.04 15:16) [6]

А если число не набирается, а заносится через буфер?

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.975 c