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

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

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

:laugh: لا أخي كاش واحد وانما كل شيء خاضع للمنطق
لا اله الا أنت سبحانك اني كنت من الضالمين
الرد


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


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