Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
12th
Дек
Ограничить ввод в EDIT
Posted by bullvinkle under Пост-обзор
Здравствуйте всем. Есть Edit1 и DBEdit1 как мне сделать так чтобы пользователь мог вводить в Edit1 число не меньше 0 но и не больше числа отображаемого в DBEdit1
Ввод только чисел оформил вот так,
Код:
procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8,',':;
else
key:=#0;
end;
а вот с остальным не могу справиться
========================================================
Не лучший вариант у твоей процедуры. Разделитель может быть точкой и будут проблемы при конвертации, запятую можно поставить первым символом и т.п.
Напиши, что-то вроде этого:
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var vrPos, vrLength, vrSelStart: byte;
const
I: byte = 1; //2 символа после decimalseparator-а
begin
with Sender as TEdit do
begin
vrLength := Length(Text);
vrPos := Pos(decimalseparator, Text);
vrSelStart := SelStart;
end;
case Key of
'0'..'9':
begin
if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
Key := #0;
end;
',', '.':
begin
if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
Key := #0
else
Key := decimalseparator;
end;
#8: ;
else
Key := #0;
end;
end;
А ограничивать ввод максимального числа я бы не рекомендовал. Например, макс. число = 25, я пытаюсь ввести 26. Двойку поставил, а по шестерке клацаю по клавише – а ничего не печатается… пока дойдет, что нельзя такое число вводить. Сильно на нервы действует. Лучше поставить проверку на доступность кнопки действия, например
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> '' then
Button1.Enabled := StrToInt(Edit1.Text) <=
DBEdit1.DataSource.DataSet.FieldByName('Поле').AsFloat;
end;