Ограничить ввод в EDIT

[flyinsky]

Здравствуйте всем. Есть Edit1 и DBEdit1 как мне сделать так чтобы пользователь мог вводить в Edit1 число не меньше 0 но и не больше числа отображаемого в DBEdit1

Ввод только чисел оформил вот так,

 procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
 begin
case key  of
'0'..'9',#8,',':;
else
key:=#0;

  end;

а вот с остальным не могу справиться

[_SERGEYX_]

Не лучший вариант у твоей процедуры. Разделитель может быть точкой и будут проблемы при конвертации, запятую можно поставить первым символом и т.п.
Напиши, что-то вроде этого:

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;

[flyinsky]

to _SERGEYX_

Спасибо за идейку.

[Space91]

Мне тоже надо ограничить ввод в едит!
а) если поле не заполнено
б)если поле содержит сила
в)если Русские буквы
1-я часть работает(если поле не заполнено) другие нет. вернее я не знаю как синтаксически правильно записать.

procedure TForm1.BitBtn9Click(Sender: TObject);
begin
 if edit1.Text=' '
 then
 showmessage('поле не заполнено')
   if edit1.Text=0..9;
   then
   showmessage('недопустимое значение')
     if edit1.Text=а..я and А..Я;
     then
     showmessage('недопустимое значение')

[_SERGEYX_]

Можно на KeyPress повесить ограничение ввода

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['а'..'я'] + ['А'..'Я']+ ['0'..'9'] then Key := #0
end;

Или проверку поставить

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  for i := 0 to Length(Edit1.Text) do
    if (Edit1.Text[i] in ['0'..'9'] + ['а'..'я'] + ['А'..'Я']) then
    begin
      ShowMessage('Неверно введены символы');
      Break;
    end;
end;

[ArtGrek]

Сообщение от flyinsky

Здравствуйте всем. Есть Edit1 и DBEdit1 как мне сделать так чтобы пользователь мог вводить в Edit1 число не меньше 0 но и не больше числа отображаемого в DBEdit1

а не проше SpinEdit1, вкладка Samples, использовать?

SpinEdit1.MinValue:=0;
SpinEdit1.MaxValue:=StrToInt(DBEdit1.Text);