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

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

Как заставить эдит понимать числа

Gnec ©   (2004-08-14 21:14:00) 

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

---

YurikGL   (2004-08-15 15:32:00) [1]

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

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

---

TUser   (2004-08-15 15:16:00) [2]

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:15:00) [3]

MaskEdit

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

---

Gnec   (2004-08-15 15:09:00) [4]

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

---

Gnec   (2004-08-14 21:32:00) [5]

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

---

YurikGL   (2004-08-14 21:27:00) [6]

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

---

YurikGL   (2004-08-14 21:23:00) [7]

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

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

---

Наверх