+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ما معنى هذه الرسالة / خوارزمية بحث / ؟؟ (/showthread.php?tid=5760)
ما معنى هذه الرسالة / خوارزمية بحث / ؟؟ - مبرمج مبتدأ - 01-12-2013
السلام عليكم و رحمة الله و بركاته
ما معنى هذه الرسالة بارك الله فيكم
ما معنى هذه الرسالة / خوارزمية بحث / ؟؟ - S.FATEH - 01-12-2013
السلام عليكم
اضهر الكود كله اخي + ماذا تفعل الـ end; الاخيرة في الكود !! كمعلومة اذا كان لديك تفرع واحد في الكود يمكنك تجاهل begin و الـ end بمعنى اخر اذا كان لديك تعليمة واحدة يمكنك ان لا تضع begin و الـ end اذا كان لديك العديد من التعليمات يجب وضها داخل begin و end ...
ما معنى هذه الرسالة / خوارزمية بحث / ؟؟ - Mr.DOS - 01-12-2013
اعتراض واضح فالاستعلام الخاص بالفلترة
انت ناسي كلمة like بعد اسم الحقل المراد فلترته
.................. adotable1.filter:= 'article Like'
ما معنى هذه الرسالة / خوارزمية بحث / ؟؟ - مبرمج مبتدأ - 01-12-2013
جزاك الله خيرا أخي الكريم، عملت بنصيحتك لكن نفس المشكلة و هذا صورة شاملة للكود ان شاء الله تعالى
ما معنى هذه الرسالة / خوارزمية بحث / ؟؟ - Mr.DOS - 01-12-2013
طيب قم بحذف علامة التنصيص والنجمة ليصبح الكود بالشكل التالي
كود :
if edit4.Text<>'' then
begin
abstable1.Filter:='article like ' + quotedstr(edit4.text);
abstable1.Filtered:= true
end else
abstable1.Filtered:=false;ما معنى هذه الرسالة / خوارزمية بحث / ؟؟ - مبرمج مبتدأ - 01-12-2013
شكرا أخي، لكن علامة التنصيص و النجمة هي للفتلرة أي أنك لما تبحث عن " محمد بن محمد" فعند كتابتك " محمد" فإن ناتج البحث يظهر كل الأسامي " محمد" بدون الأسامي الأخى أي أنه لن يظهر "زيد" " معاوية" ،"علي"، "عمر" و هكذا.
لكن رسالة الخطأ لم افهم معناها..
ما معنى هذه الرسالة / خوارزمية بحث / ؟؟ - Mr.DOS - 01-12-2013
للتحقق من اختفاء رسالة الخطا فقط ...
طيب الان اضف العلامة %
كود :
if edit4.Text<>'' then
begin
abstable1.Filter:='article like ' + quotedstr(edit4.text[color=Red]+'%'[/color]);
abstable1.Filtered:= true
end else
abstable1.Filtered:=false;ما معنى هذه الرسالة / خوارزمية بحث / ؟؟ - مبرمج مبتدأ - 01-12-2013
بوركت، لكن لا يظهر شيء في ناتج البحث !!!
ما معنى هذه الرسالة / خوارزمية بحث / ؟؟ - مبرمج مبتدأ - 05-12-2013
توصلت للحل و لله الحمد و هو :
كود :
begin
with (adotable1) do
begin
if edit1.Text = '' then
filtered := false
else
begin
Filter := 'اسم الحقل like ' + QuotedStr('%' +Edit1.Text + '%');
filtered := true ;
end;
end;
end;