delphi4arab منتديات دلفي للعرب

السلام عليكم
اريد التعديل على هذا الكود بحيث يصبح يبحث على الكلمة المدخلة مهما كان موقعها

كود :
            if edit5.Text <>'' then
begin
form1.adotable9.filter := 'Cité_AR like '+ quotedstr(edit5.Text+ '*');
form1.adotable9.filtered := true;
  end
  else
  form1.adotable9.Filtered := false;

مثلا يصبح يجلب كلمة المرجة في الكلمات
..........المرجة........
المرجة...........
...........الكمية.........المرجة

مهما كان موقعها

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

جرب الكود التالي :

كود :
if edit5.Text <>'' then
begin
  form1.adotable9.filter := 'Cité_AR like %'+ quotedstr(edit5.Text+ '%');
  form1.adotable9.filtered := true;
end
else
  form1.adotable9.Filtered := false;

(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;

لم ينجح ضهر خطا

كود :
form1.adotable9.filter := 'Cité_AR like '+ quotedstr('%'+edit5.Text+ '%');

بارك الله فيك لقد نجح الكود

tahar1983

أبو معاذ

tahar1983

Ndagor

tahar1983