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

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

Дробные числа в Эдите [D2005, XP]

De1uxe ©   (2005-11-25 15:06:00) 

Люди добрые кто подскажет как сделать так чтобы в эдите можно было писать только числа и точку(запятую) чтобы дробные(десятичные) писать?

---

Ega23   (2005-11-25 15:34:00) [1]

> Примечание 3.


Согласен.
Вообще, обычно, я уже потом проверяю. Val использую. Там и код ошибки, кстати, есть.

---

Ega23   (2005-11-25 15:30:00) [2]

> #8 - это чё?


Backspace. Без него - тяжеловато.

---

Fay   (2005-11-25 15:29:00) [3]

2 Ega23 ©   (25.11.05 15:23) [1]
#8 - это чё?

---

Leonid Troyanovsky   (2005-11-25 15:28:00) [4]

> De1uxe ©   (25.11.05 15:06)  
> Люди добрые кто подскажет как сделать так чтобы в эдите
> можно было писать только числа и точку(запятую) чтобы дробные(десятичные)
> писать?


Например,

http://groups.google.com/group/fido7.ru.delphi/msg/775ae41547dcf860

Только, свой ConvertInput написать, скажем,
function ConvertInput(const s: String): Extended;

Кста, Val допускает и такой ввод -1E+1

--
Regards, LVT.

---

Сайбель Алексей   (2005-11-25 15:26:00) [5]

Примечание 3.
Можно ввести число разделенное несколько раз DecimalSeparator.
Ex: 123,123,123, etc

---

Ega23   (2005-11-25 15:24:00) [6]

Примечание: нельзя вводить отрицательные числа.

---

Ega23   (2005-11-25 15:24:00) [7]

Примечание 2.
Не защищено от вставки текста в Edit из буфера обмена.

---

Ega23   (2005-11-25 15:23:00) [8]


TEdit.OnKeyPerss(Sender: TObject;
 var Key: Char);
begin
 if not (Key in ['0'..'9', DecimalSeparator, #8]) then Key:=#0;
end;

---

Наверх