(ord(key کلید back

[matinebi]

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

if (ord(Key)<48) or (ord(key)>57) then
key:=#0;

مشکل اینجاست که کلید back هم غیر فعال میشه

[daffy_duck376]

اين كد ره تو on key press بنويس و كد خودتو بگذار كنار

if key NOT in ['1','2','3',4','5','6',7','8','9','0',#8,#13] then
key :=#0

برو حالشو ببر

[matinebi]

اين كد ره تو 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

if key NOT in ['1','2','3','4','5','6','7','8','9','0',#8,#13] then
key :=#0;

[daffy_duck376]

شرمنده هر عدد رو بايد به صورت 'عدد'‌بنويسي تو كد بالا عدد 4 و 7رو دقت كن اشتباه من بود

[matinebi]

بازم همین طوریه رو not ارور میگیره

[s.mostafa.rahmani]

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

[daffy_duck376]

يه نگاهي به اين تاپيك بنداز توش يه برنامه هست كه يه عالمه كد رو توش هست اين كد هم توش هست برنامه رو خودم نوشتم كد ها هم تست شده هستن
http://barnamenevis.org/forum/showthread.php?t=118369