كيفية إجبار الـ Edit على عدم السماح بالكتابة إلا من جهاز البار كود.

[wesamnet]

للأسف لا يتوفر لدي برنامج delphi على جهازي حاليا ولكني قمت بحل مثل هذه المشكلة من قبل بشكل بسيط جدا
من المعروف أن سرعة إدخال الأرقام عن طريق الباركود ريدير لا تتعدى الثانية الواحدة
و من الواضح أن البرنامج الذي تتعامل معه يتعامل مع قواعد بيانات لها طول معين للباركود
المهم الطريقة عليك إتباع التالي :
عليك أن تكتب عند الحدث editchange دالة لتحديد الوقت الحالي مثلا

كود :

timenow := now ;

حيث يتم تعريف المتغير timenow من نوع ttime بشكل عام
ثم يتم تفعيل timer لتأكد من طول مربع النص

كود :

procedure timer1.ontimer begin if (length (edit1.text) <= 5) and (secoundbetween(timenow,now)<1) then edit1.text := '' end;

طبعا أنا أفترضت في هذا المثال أن طول الباركود لا يقل عن 5 أرقام أو أحرف
أتمنى أني وفقت لتوصيل المعلومة وشكرا