وارد کردن فقط عدد

سلام به دوستان
شاید سوال من خیلی مبتدی باشه اما درخواست کمک دارم
چطوری می شه در editفقط عدد وارد کرد (در واقع از ورود حروف جلوگیری کرد).
با تشکرrezai_s

سلام. دوست عزیز این سوال شما قبلا مطرح شده بود. لطفا دفعات بعد اول جستجو کنید:
کد زیر رو در OnKeyPress قرار دهید:

کد:

---

if key<>#8 then
if ((key<'0') or (key>'9'))and (key<>'.') then
key:=#0;

---

این هم یه جور دیگش (رویداد KeyPress ادیت)

کد:

---

var svalid : String ;
Begin
  SValid := '0123456789';
  If pos(key, SValid) = 0 Then
      Key := #0;
end;

---

با سلام

اینم واسه حرفه ای بودن :31:

کد:

---

if not (Key in ['0'..'9']) then
  Key := #0;

---

کد برای رویداد OnKeyPress کمپوننت TEdit

منم دو راه دیگه میگم و خلاص.
1. از MaskEdit استفاده کن و فرمت اونو به صورت 0000000 تغییر بده.
2. از کامپوننت SpineEdit استفاده کن. چون فقط عدد میگیره.

نقل قول:

---

نوشته شده توسط Mavix [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با سلام

اینم واسه حرفه ای بودن :31:

کد:

---

if not (Key in ['0'..'9']) then
  Key := #0;

---

کد برای رویداد OnKeyPress کمپوننت TEdit

---

از یه حرفهای بعیده که عدد اعشاری و کلید BackSpace رو نادیده بگیره :20:

با سلام;
بهتره تو رویداد OnKeyPress کامپوننت از نوع TEdit نوشت:

کد:

---

if not(Key in [#8, '.', '0'..'9']) then
  Key:= #0;

---

و اگه بخواهیم اصلا نتونه غیر عدد داخلش قرار بده (مثلا کپی نکنه) بهتره این کد رو تو رویداد OnChange همون Edit بنویسیم:

کد:

---

St: String;
 
St:= Edit1.Text;
for i:= 1 to Length(St) do
  if not(St[i] in ['0'..'9']) then
  begin
    Edit1.Clear;
    break;
  end;

---

سلام

نیازی به کد نویسی نداره!


کمپوننت NumEdit که برای عدد ها بکار میره...

کد:

---

http://www.torry.net/vcl/edits/diffedits/NumEdit.zip

---

موفق باشید

yashasin oz xala oghlum