Форум: "Основная";
Текущий архив: 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.007 c