string and set

[Devolarium]

Ребят всем привет =)

Такая проблема нужно чтобы в поле Edit можно было вводить только числа,

вот до чего пока дошел

if edit2.text = ['À'..'ÿ','A'..'z'] then showmessage('error');

но пишет несовместимые типы

[Прик]

В событии OnChange компонента Edit:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  try
    Edit1.Text := Format('%f',[StrTofloat(Edit1.Text)]);
  except
    ShowMessage('Неверный ввод!');
  end;
end;

(По мотивам конструкции, предложенной Stilet)

[BDA]

В новых версиях Дельфи у едита есть свойство NumbersOnly (вроде так называется, сейчас поставлю Дельфи 2010 и скажу поточнее).

УПД Да, называется так, но "дает" вводить только целые неотрицательные числа.

[Пепел Феникса]

а событие OnKeyPress отменили?

[Devolarium]

у меня делфи 7 стоит

[=master=]

а событие OnKeyPress отменили?

а мышкой из буфера, по правому клику оно поймет?

[Devolarium]

Сообщение от Прик

В событии OnChange компонента Edit:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  try
    Edit1.Text := Format('%f',[StrTofloat(Edit1.Text)]);
  except
    ShowMessage('Неверный ввод!');
  end;
end;

(По мотивам конструкции, предложенной Stilet)

мне нужны только целые число т.е integer, и что значи т "%f" ?)

[BDA]

Переписал без проверки кода:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  try
    Edit1.Text := Format('%d',[StrToInt(Edit1.Text)]);
  except
    ShowMessage('Неверный ввод!');
  end;
end;

http://www.delphibasics.ru/Format.php - найдете ответ, что такое f.

[FaTaL]

case key of
0..9:;
else Key := Chr(0);
end;

Всё это в OnKeyPress

[IliaIT]

а TMaskEdit не подходит? в седьмой он есть.