الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تقرير خطا غير مفهوم

بدأه hbate_allah في 3 يناير 2009 · 16 رد · 1,396 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه

لقد كتبت هذا الكود الذي يمكنني من عرض كشف النقاط بادخالي لرقم الطالب و السداسي


Var Rep,Rep1,Filtre:string;
begin
Fbulletin.Query1.Open;
Fbulletin.Query1.Refresh;
Fbulletin.Query1.Filtered:=False;
Rep:= Inputbox('Impression d''un Relevé de notes','Entrer le N d''inscription de l''étudiant :','');
Rep1:=Inputbox('Impression d''un Relevé de notes',
'Enter le semestre(Taper I,II','');
if(Rep<>'') and (Rep1<>'') then
begin
if Fbulletin.Query1.Locate('Numero_inscription;Semestre',
VarArrayOf([Rep,Rep1]),[loCaseInsensitive])=False then
begin
Fbulletin.Query1.Filtered:=False;
showmessage('ce N d''inscription : '+rep'+
chr(13)+rep1+' ne possede pas de bulletin');
end
Else
begin
Filtre:='Numero_inscription='''+Rep+''' and Semestre= '''
+Rep1+''';
Fbulletin.Query1.Filter:=Filtre;
Fbulletin.Query1.Filtered:=true;
Fbulletin.QuickRep1.Perview
end;
end;]
procedure TFprincipale.Relevedenotes1Click(Sender: TObject);

لكن عند التنفيذ يخرج لي هذا الخطا

identificateur non déclaré:'loCaseInsensitive

ما المشكلة فالكلمة صحيحة

#2

هل من الممكن ارفاق المشروع والخطا

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#4

السلام عليكم

هل المكتبة variants موجودة في قسم الـ uses ؟؟ أتصور المشكلة من هنا

ما هو أصدار دلفي المستخدم ؟؟

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#5

دلفي 5

و المكتبة variants غير موجودة هل اضيفها

لقد حاةلت اضافتها فلم يجد الملف الذي به هذه المكتبة

#6

ما العمل اذا ما دام لم يقبلها

#7

السلام عليكم

أختي الكريمة المكتبة غير موجودة في الأصدار 5 لا أعلم إن كان هناك طريقة لإستخدام Variants في الأصدار الخامس

و أتصور أنت بحاجة لإستخدام الأصدار 7

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#8

المشروع به اخطاء كثير

التعديل بالمرفق

projet.rar

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#9

هل استطيع الاستغناء اذا عن هذه

و ابدلها باخرى صراحة انا لم استطع

العلا

  if Fbulletin.Query1.Locate('Numero_inscription;Semestre',
			VarArrayOf([Rep,Rep1]),[loCaseInsensitive])=False

شكرا على تصحيح الاخطاء

#10

السلام عليكم

أخ علي المرفق لن يعمل عند الأخت لأن المكتبة Variants غير موجودة في دلفي 5 الذي تستخدمه الأخت hbate_allah

فهل من حل أخر ؟؟

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#11

لقد حذف الكلمة التي تحتاج لتلك المكتبة

الان لا يوجد به و لا خطا لكنه لا يعمل اذا اردت لتنفيذ لا ينفذ لماذا يا ترى

#12

الحل موجود

if (Table1.Locate('last_name',Edit1.Text,[loCaseInsensitive]))and Table1.Locate('First_name',Edit2.Text,[loCaseInsensitive])then
ShowMessage('Test Réussi');

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#13

السلام عليكم...

رسالة الخطأ في السؤال الأساسي تقول:

اقتباس
identificateur non déclaré:'loCaseInsensitive

يعني أن المعرف loCaseInsensitive غير مصرح عنه (not declared). و هو في الواقع من القيم المصرح عنها في الوحدة DB التابعة لدلفي. الرجاء التأكد من وجود اسم الوحدة DB ضمن عبارة uses في القسم interface في بداية الكود.

الوحدة Variants - كما قال الإخوة - غير موجودة في دلفي 5.

نرجو الاستفادة و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#14

عندما حاولت التنفيذ

طلع لي هذا الخطا

post-178832-1230936926_thumb.gif

#15

لم اجد DB في interface لكن حين اردت زيادتها لم يقبلها

لقد اضفتها هكذا

interface	DB;
#16

لا يحتاج الأمر إلى كتابة كلمة interface أو uses لأنهما موجودتان. فقط نأتي قبل الفاصلة المنقوطة في السطر التابع لعبارة uses (الموجودة) و نضع فاصلة عادية ثم كلمة DB.

كما في الصورة.

post-28631-1230937800_thumb.jpg

نرجو الاستفادة و السلام.

تم تعديل هذه المشاركة بواسطة najy_zl في 3 يناير 2009 في 02:12

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#17

لقد جربت اضافة DB لكن بقي نفس الخطا

مواضيع مشابهة