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

Вниз

в Edit вводить только цыфры   Найти похожие ветки 

← →
ivc_andr   (2003-12-17 14:38) [0]

Ув. мастера! Подскажите пожалуйста как мне сделать чтобы в Edit можно было вводить только цыфры...
Заранее благодарен!

---

← →
Amoeba   (2003-12-17 14:44) [1]

Это уже неоднократно обсуждалось в на форуме.

---

← →
Тимохов   (2003-12-17 15:26) [2]

Удалено модератором

---

← →
}|{yk   (2003-12-17 15:34) [3]

1. исп. MaskEdit
2. Обработка OnKeyPress
3. Другое
Выбирай

---

← →
Карелин Артем   (2003-12-17 15:36) [4]

Удалено модератором

---

← →
Vovchik_A   (2003-12-17 15:36) [5]

Удалено модератором

---

← →
BillyJeans   (2003-12-17 16:26) [6]

Удалено модератором

---

← →
Александр из Минска   (2003-12-17 17:07) [7]

А чего это тут все поудаляли?
Вот мой вариант, учитывает не циферную вставку текста:
procedure TForm1.Edit1Change(Sender: TObject);
var
sss : String;
i : Integer;
begin
sss := Edit1.Text;
for i := 1 to Length(Edit1.Text) do
begin
if (sss[i] < "0") or (sss[i] > "9") then Delete(sss, i, 1);
end;
Edit1.Text := sss;
end;

---

← →
Silver Alex   (2003-12-17 18:42) [8]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in(["0".."9",#13,#8]) ) then
key:=#0;
end;

---

← →
Плохиш_   (2003-12-17 18:58) [9]

>Silver Alex © (17.12.03 18:42) [8]

А Александр из Минска © (17.12.03 17:07) [7] учитывает и вставку из буфера ;-)

---

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

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

Наверх

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