من برای محدود کردن کاربران به این که فقط عدد وارد نماییند به این صورت عمل کرده ام
if (ord(Key)<48) or (ord(key)>57) then
key:=#0;
مشکل اینجاست که کلید back هم غیر فعال میشه
Printable View
من برای محدود کردن کاربران به این که فقط عدد وارد نماییند به این صورت عمل کرده ام
if (ord(Key)<48) or (ord(key)>57) then
key:=#0;
مشکل اینجاست که کلید back هم غیر فعال میشه
اين كد ره تو on key press بنويس و كد خودتو بگذار كنار
if key NOT in ['1','2','3',4','5','6',7','8','9','0',#8,#13] then
key :=#0برو حالشو ببر
این ارور رو میده missing operator or semicolonنقل قول:
نوشته شده توسط daffy_duck376
if key NOT in ['1','2','3','4','5','6','7','8','9','0',#8,#13] then
key :=#0;
شرمنده هر عدد رو بايد به صورت 'عدد'بنويسي تو كد بالا عدد 4 و 7رو دقت كن اشتباه من بود
بازم همین طوریه رو not ارور میگیره
if not (key in ['0'..'9',#8,#13]) then
key :=#0;
يه نگاهي به اين تاپيك بنداز توش يه برنامه هست كه يه عالمه كد رو توش هست اين كد هم توش هست برنامه رو خودم نوشتم كد ها هم تست شده هستن
https://barnamenevis.org/showthread.php?t=118369