07-03-2011, 09:09 AM
delphi4ever كتب :كود :begin if (key in ['0'..'9', #8]) then begin key := #0; beep; end; end;
السلام عليك يا أخي
حسب خبرتي البسيطة أظن ان في الكود الذي يطبع الأحرف ولا يطبع الأرقام
فيه خلل مع #8 حيث يجب عدم وضعها في هذا الكود لكي يقبل الحذف
وشكرا
أعرف شيء من كل شيء, وكل شيء من شيء

