Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
19th
Окт
При вводе символа или буквы в edit, выдать ошибку
Posted by Chas under Delphi, Пост-обзор
Нужно написать проверку под Edit а именно при вводе символа или буквы (слова) выдавало ошибку «не верние данные».
Стелс
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key >= #32
Then
If Not (Key In ['0'..'9'])
Then begin
Key := #0;
ShowMessage('Не на те кнопки жмеш !');
end;
end;