دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

اذهب الى الأسفل

مسح مربعات التحرير TEdit  Empty مسح مربعات التحرير 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
مبرمج مجتهد

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

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

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

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