محدود کردن Edit ها در دلفی برای گرفتن مقدار از کاربر

[ms.nazeri]

چطوری می تونم در دلفی بگم که کاربر در یک Edit خاص، فقط بتونه اعداد بین 4000 تا 5000 رو وارد کنه ، در واقع محدودش کنم !و هنگام ذخیره در بانک اگر بین این محدوده نبود پیغام بده ؟؟
لطفا چند راه آسان پیشنهاد کنین؟؟

آیا MaskEdit میتونه این کارو انجام بده؟؟

[hossein_h62]

این یه راه :




procedure TForm1.Edit1Exit(Sender: TObject);
var
a:integer;
begin
a:=strtoint(Edit1.Text);
if (4000<a) XOR (a<5000) Then
Begin
Showmessage(' Error ');
Edit1.Clear;
Edit1.SetFocus;
end;
end;

[SAASTN]

JVCL هم یه کامپوننت به اسم ValidateEdit داره که این کار رو می کنه.