Текущий архив: 2003.12.30;
Скачать: CL | DM;
Вниз
в 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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.14 c
