مسح مربعات التحرير TEdit

alla23 الخميس نوفمبر 26, 2015 8:44 pm

بسم الله الرحمن الرحيم

مسح مربعات التحرير TEdit

الكود:: procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to ComponentCount - 1 do if (Components[i] is TEdit) then //if Components[i].Name <> 'Edit1' then if Components[i] <> Edit1 then TEdit(Components[i]).Clear; end;

اذا اردنا استثناء عدة عناصر من عملية المسح نستعمل الامر and مثال

الكود:: procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to ComponentCount - 1 do if (Components[i] is TEdit) then if(Components[i] <> Edit1)and(Components[i] <> Edit20)and (Components[i] <> Edit50)and(Components[i] <> Edit17)then TEdit(Components[i]).Clear; //if Components[i].Name <> 'Edit1' then end