delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف امحي قيم اكثر من edit بضغطة زر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله
صادفني كود يمحي قيم اكثر من edit دفعة واحدة وهو كالتالي :
كود :
begin for i:=0 tocomponentcount - 1 do if ([color=Red]component[/color][i] is Tedit) then (component[i] as Tedit).clear ; end;

هل هذا الكود صحيح لاني جربته ولم يصلح معي
وعليكم السلام ورحمة الله
الحلقة سليمة، أين الخلل؟
كود :
for i:=0 to ComponentCount - 1 do if (Components[i] is TEdit) then (Components[i] as TEdit).Clear;
المشكل يا اخي انه لا ينفذ
تظهر علامة المؤشر في كلمة component الملونة في الاعلى
مع العلم اني استعمل دلفي7
تأكد من وجود الوحدة في uses
me&delphi' كتب :تأكد من وجود الوحدة في uses

ما اسم هذه الوحدة اخي الكريم هل هي موجودة
إقتباس :تظهر علامة المؤشر في كلمة [COLOR="Red"]component الملونة في الاعلى
أكتب رسالة الخطأ بالتحديد: "undeclared identifier"
معك حق لأنها Components وليست Component Smile
تم تصحيح الكود السابق.
الآلات:= منضبطة وحمقاء :oops:[/COLOR]
حقيقة يعجز لساني عن التعبير وشكركم
مشكورين في الحقيقة اخي ملاحظتك في محلها
إقتباس :الآلات:= منضبطة وحمقاء

:laugh: لا أخي كاش واحد وانما كل شيء خاضع للمنطق