HaMiDo عضو نشيط
عدد المساهمات : 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; |
|