سلام به دوستان
شاید سوال من خیلی مبتدی باشه اما درخواست کمک دارم
چطوری می شه در editفقط عدد وارد کرد (در واقع از ورود حروف جلوگیری کرد).
با تشکرrezai_s
Printable View
سلام به دوستان
شاید سوال من خیلی مبتدی باشه اما درخواست کمک دارم
چطوری می شه در 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:
کد برای رویداد OnKeyPress کمپوننت TEditکد:if not (Key in ['0'..'9']) then
Key := #0;
منم دو راه دیگه میگم و خلاص.
1. از MaskEdit استفاده کن و فرمت اونو به صورت 0000000 تغییر بده.
2. از کامپوننت SpineEdit استفاده کن. چون فقط عدد میگیره.
از یه حرفهای بعیده که عدد اعشاری و کلید BackSpace رو نادیده بگیره :20:نقل قول:
با سلام;
بهتره تو رویداد OnKeyPress کامپوننت از نوع TEdit نوشت:
و اگه بخواهیم اصلا نتونه غیر عدد داخلش قرار بده (مثلا کپی نکنه) بهتره این کد رو تو رویداد OnChange همون Edit بنویسیم:کد:if not(Key in [#8, '.', '0'..'9']) then
Key:= #0;
کد: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