03-09-2010, 06:35 PM
03-09-2010, 06:42 PM
مرحبا بك اخي
مادا تقصد بكلمة البحت ؟
هل البحت داخل قاعدة بيانات ام مادا ؟
وضح اكثر
ممكن ترفق البرنامج الدي تعمل عليه واين مشكلتك فيه ليثم معلجتها
بالتوفيق
مادا تقصد بكلمة البحت ؟
هل البحت داخل قاعدة بيانات ام مادا ؟
وضح اكثر
ممكن ترفق البرنامج الدي تعمل عليه واين مشكلتك فيه ليثم معلجتها
بالتوفيق
03-09-2010, 10:50 PM
25-11-2012, 12:37 PM
السلام عليكم
البحث بكلمة اقصد بذلك كلمة وسط جمله على سبيل المثال (( اسعد الله صباحكم بدعاء صالح ))
نرغب في البحث عن كلمة ((دعاء))
ارغب في كود بذلك
البحث بكلمة اقصد بذلك كلمة وسط جمله على سبيل المثال (( اسعد الله صباحكم بدعاء صالح ))
نرغب في البحث عن كلمة ((دعاء))
ارغب في كود بذلك
25-11-2012, 01:45 PM
بسم الله الرحمان الرحيم
أخي جرب هذا:
أتمنى أن يناسبك و بالتوفيق
أخي جرب هذا:
كود :
procedure TForm1.Edit1Change(Sender: TObject);
begin
table1.Filter:='champ='''+edit1.Text+'*''';
table1.Filtered:=true;
end;25-11-2012, 09:40 PM
السلام عليكم
استعمال الخاصية filter لوحدها لا تفي بالغرض لانها تقوم بالفلترة ابتداء من اول حرف لأول كلمة من الجملة
يمكن دمج الخاصية filter مع المعامل like الذي يمكن من خلاله فلترة الحرف او الكلمة مهما كان موقهما من الجملة
مثال
أو
استعمال الخاصية filter لوحدها لا تفي بالغرض لانها تقوم بالفلترة ابتداء من اول حرف لأول كلمة من الجملة
يمكن دمج الخاصية filter مع المعامل like الذي يمكن من خلاله فلترة الحرف او الكلمة مهما كان موقهما من الجملة
مثال
كود :
procedure TForm1.Edit1Change(Sender: TObject);
begin
IF edit1.Text<> '' then
begin
table1.Filter:='champ like '+''''+'%'+Edit1.Text+'%''';
table1.Filtered:=true;
end
else
table1.Filtered:=false ;
end;[align=left][/align]كود :
table1.Filter:='champ + LIKE ' + QuotedStr('%'+Edit1.Text+'%');
[align=left][/align]27-11-2012, 01:13 PM
استخدم findednerssed للبحث في الحقول الغير المفهرسة