دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  djelal في 22/11/2015, 10:26 am


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

مسح مربعات التحرير 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

djelal
مبتدئ في البرمجة

عدد المساهمات : 37
تاريخ التسجيل : 29/04/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى