کنترل مقادیر ورودی کاربر در Edit Box

[babak869]

با سلام
من میخواستم ببینم چطور میشه مقادیری رو که کاربر در Editbox یا Dbedit وارد میکنه رو از نظر حروفی یا عددی کنتل کرد .مثلا فیلدی که برای وارد کردن عدد هست رو در رویداد OnExit اون چه کدی بنویسیم تا اگه مقدار کاراکتر یعنی حرف وارد کرد مثلا یه مسیج باکس نشون بده و مجددا به همون کنترل فوکوس کنه؟البته در هنگام تعریف ساختار دیتابیس میشه این کار رو کرد مثل SQL Server که در تعریف فیلد ها میتونیم انواع داده رو انتخاب کنیم.اما من میخوام کلیه راههای خطا از طرف کاربر رو بگیرم.
اگه دوستان محبت کنند راهنمایی کنند ممنون میشم
با تشکر

[vcldeveloper]

در رویداد OnKeyPressed اون Edit می تونید کاراکتری رو که کاربر وارد کرده بدست بیارید و اگه کاراکتر غیر مجاز بود، Key را 0# کنید.
این سوال قبلا چندین بار پرسیده شده، برای همین دیگه مثال نمیزنم.

[Mahdi_S_T]

[code]
if key in [#1,#5,#9] then

[code/]

[Kamyar.Kimiyabeigi]

اینم مثالی برای اینکه کاربر فقط عدد بتونه تایپ کنه

      if ((Key<'0') and (Key>#31))or (Key>'9') then

        Key:=#0;

[babak869]

ممنون از جواب همه دوستان
متشکرم