كود مسح كامل TEdit وإفراغها مرة واحدة
#1
[FONT=Arial]السلام عليكم

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

PHP كود :
var
  
i : integer;
begin
  
for i := 0 to ComponentCount-1 do       {.... Count all TForm components  ....}
    
begin
      
if( Components[ i ] is TEdit )then      {.... We want only the TEdit control ! ....}
      
begin[/align] 
        (
Components[ i ] as TEdit).Clear()  {.... Clear only the selected controls(TEdits)}';
      end;
  end; 
الرد


الردود في هذا الموضوع
كود مسح كامل TEdit وإفراغها مرة واحدة - بواسطة xinofix - 17-04-2008, 07:16 PM

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم