منتديات الأجاويد



 
الرئيسيةالبوابةالمنشوراتس .و .جبحـثالتسجيلدخول
آخر عضو مسجل هو meziane lamri فمرحبا به أهلا وسهلا

شاطر | 
 

 كود مسح كامل TEdit وإفراغها مرة واحدة

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
HaMiDo
عضو نشيط
عضو نشيط
avatar

عدد المساهمات : 40

مُساهمةموضوع: كود مسح كامل TEdit وإفراغها مرة واحدة   2016-01-22, 10:50 am

وفر عنك مجموعة كبيرة من الأسطر واختصر الوقت
يعاني البعض من روتين إفراغ مجموعة كبيرة من الـ TEdit وينتابه شيء من الضجر والملل جراء دلك !
لكن لا عليك فنحن نوفر عليك الجهد والملل


 
الكود:
var
  i : integer;begin
  for i := 0 to ComponentCount-1 do
    begin
      if( Components[ i ] is TEdit )then
      begin
        (Components[ i ] as TEdit).Clear()
      end;

الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
كود مسح كامل TEdit وإفراغها مرة واحدة
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1



صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات الأجاويد :: الكميوتر :: برمجة-
انتقل الى: