اريد عمل احصاء لعدد الدكور الموجودين في الجدول و عدد الانات
متلا اضع زر اكتب عليه احصاء عدد الدكور واخر اكتب عليه احصاء عدد الانات
Sex لقد اعطاني احد الاخوة هدا الكود لكن عندما اغير كلمة
بالاسم الدي لدي وهو 'الجنس
يقول لي خطأ
procedure TForm1.Button1Click(Sender: TObject);
هل المشكل في الكتابة بالعربية ام مادا اخواني
استعمل قاعدة بيانات paradox
تم تعديل هذه المشاركة بواسطة B.M.AbdelAziZ في 24 يوليو 2008 في 09:58
جرب التعديل واستعمال Quotedstr بدلا من ِchr
Table1.Filter := 'Sex='+QuotedStr('ذكر');وايضا تاكد من كتابة نفس الكلمة "ذكر" دون مسافات Space
والسلام عليكم
نفس الشيء نفس الخطأ وفي نفس المكان
هده صورة
حسب ما شرح لي الاخ الدي اعطاني الكود انه يقوم بتصفية الجدول يبقي فقط على الدكور تم يحسب عدد السجلات
ساعدوني حل هده المشكلة من فضلكم ولكم جزيل الشكر
واضح من الصورة ان اسم المتغير خطأ
لاتستخدم اللغة العربية في اسماء المتغيرات
سمه Nombre فقط
لاحظ ايضا ان المتغير Nombre محلي معرف في الزر فقط
عليك اظهاره بضافة Label او جعله متغير عام بتعريفه اعلى
متأسف اخي لم افهم قصدك ليس لدي خبرة مع المتغيرات
ممكن شرح بسيط للعمل الدي اقوم به كي يصلح الخطأ
من فضلك
كانت المشكلة في اسماء الجدول بالعربية
يا اخي ابتعد عن تسمية الحقول بالعربية
بدلا من ان تسمي الحقل "الجنس" غير تسميته الى "SEX"
وكذلك باقي الحقول مثلا "الاسم" الى "Name"
مثال Sex_Filter.rar
والسلام عليكم ورحمة الله
بالفعل اخي الكريم المشكل كان في اللغة العربية (:
لدي طلب بسيط اخي
مادا اضيف على الكود كي يحسب عدد الدكور الموجودين في المستوى الاول فقط
او عدد الانات
الكود الدي استخدم الان يحسب عدد الدكور في الجدول ككل
لكن اريد حسابهم حسب المستوى
يعني المستوى الاول : عدد الدكور الموجودين به + عدد الانات
المستوى التاني ....
هدا ما ينقصني لاكمال برنامجي بادن الله
متأسف كتيرا لكترة الاسئلة
هل من مساعد اخواني
اخواني بالله عليكم اني في حاجة ماسة لعمل هدا الامر والله
من فضلكم من فضلكم
شكرا اخي الكريم
جاري التجريب
انضر مدا اعطاني اخي
لم يقرئ العربية
http://www3.0zz0.com/2008/07/25/20/196585973.jpg
ممكن تشرح لي مادا مكتوب
اسف لقد اشتغل الكود
الف شكر لك اخي الكريم (:
اخي عندما طبقته على برنامجي اعطاني خطأ هنا
يا خي عليك ان تعرف اللمتغييرين VAL و VAL2
جرب عرفهما
بالتوفيق
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
كيف اخي ولله لم افهم كيف اعرفهما
ليس لدي دراية بالمتغيرات
ساعدني من فضلك
var Form1: TForm1; val,val2:Integer;
الموضوع ليس بذك التعقيد
بالتوفيق
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
الف شكر لك اخي
شغال 100 %
aderfiad كتب:كيف اخي ولله لم افهم كيف اعرفهماليس لدي دراية بالمتغيرات
ساعدني من فضلك
نصيحة: ساعد نفسك و ابدأ بتعلم أساسيات على الأقل باسكال ثم باسكال الغرضية
لو ساعدك أحدهم و نسي نقطة ستقوم الدنيا عندك و تدور حولك البنايات ... و كأن النهاية حالت.
لا بناء دون أساس :)
العفو لا شكر على واجب
بالتوفيق
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
حسنا اخي الديك كتاب خاص بالتعامل مع الدوال وكتاب لتعليم الباسكال
رغم اني لا ارى العلاقة بين الباسكال والدلفي
اقتباسرغم اني لا ارى العلاقة بين الباسكال والدلفي
:wacko:
أخي ... السطور التي تكتبها ككود في الدلفي .... هي أساسا لغة البسكال الغرضية
بارك الله فيكم اخواني
لقد حملت كتب الباسكال
الان فهمت جيدا العلاقة بينهما
بالفعل بالباسكال هي اساس الدلفي