+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التعديل على كود فلترة (/showthread.php?tid=12212)
التعديل على كود فلترة - tahar1983 - 14-02-2023
السلام عليكم
اريد التعديل على هذا الكود بحيث يصبح يبحث على الكلمة المدخلة مهما كان موقعها
كود :
if edit5.Text <>'' then
begin
form1.adotable9.filter := 'Cité_AR like '+ quotedstr(edit5.Text+ '*');
form1.adotable9.filtered := true;
end
else
form1.adotable9.Filtered := false;مثلا يصبح يجلب كلمة المرجة في الكلمات
..........المرجة........
المرجة...........
...........الكمية.........المرجة
مهما كان موقعها
RE: التعديل على كود فلترة - أبو معاذ - 15-02-2023
وعليكم السلام ورحمة الله وبركاته.
جرب الكود التالي :
كود :
if edit5.Text <>'' then
begin
form1.adotable9.filter := 'Cité_AR like %'+ quotedstr(edit5.Text+ '%');
form1.adotable9.filtered := true;
end
else
form1.adotable9.Filtered := false;RE: التعديل على كود فلترة - tahar1983 - 18-02-2023
(15-02-2023, 12:06 PM)أبو معاذ كتب : وعليكم السلام ورحمة الله وبركاته.
جرب الكود التالي :
كود :if edit5.Text <>'' then begin form1.adotable9.filter := 'Cité_AR like %'+ quotedstr(edit5.Text+ '%'); form1.adotable9.filtered := true; end else form1.adotable9.Filtered := false;
لم ينجح ضهر خطا
RE: التعديل على كود فلترة - Ndagor - 18-02-2023
كود :
form1.adotable9.filter := 'Cité_AR like '+ quotedstr('%'+edit5.Text+ '%');RE: التعديل على كود فلترة - tahar1983 - 27-02-2023
بارك الله فيك لقد نجح الكود