Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.043 c
14-99708
Style
2003-12-08 19:59
2003.12.30
Товарищи нужен совет!


1-99538
djsash
2003-12-16 12:35
2003.12.30
Работа с Excel файлами... (нужна помощь)


14-99782
cyborg
2003-12-05 15:38
2003.12.30
Два компьютера


3-99487
123456
2003-12-07 05:58
2003.12.30
Cписок таблиц в базе FireBird


6-99682
Фагот
2003-10-30 14:33
2003.12.30
POP3