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

نسخة كاملة : كيفية البحث بالأحرف الكبيرة و الصغيرة؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
أخوتي عندي برنامج فيه تسجيلات متنوعة بأحرف كبيرة و بأحرف صغيرة
فمثلا عندما أبحث عن التسجيلات بأحرف كبيرة تظهر فقط المكتوبة بأحرف كبيرة
فكيفية إظهارها كلها المكتوبة بالصغير و بالكبير؟
وجزاكم الله ألف خيرا.
و هذه محاولتي في البحث:
كود :
[Procedure TForm1.Edit1Change (Sender: TObject); Var x: string; Begin If Edit1.Text='' then Table1.Filtered:=false Else Begin X: =Edit1.Text+'*'; table1.Filter:='Nom_cl='+QuotedStr(x); table1.Filtered:=true; end; end;
السلام عليكم ورحمة الله وبركاته ،
هل جربت الدالة UpperCase ؟

إقتباس :UpperCase('AbcD') = 'ABCD'
جرب الكود التالي بعد أن تقوم بالتعديل عليه.

كود :
Procedure TForm1.Edit1Change (Sender: TObject); Var x: string; Begin If Edit1.Text='' then Table1.Filtered:=false Else Begin X := UpperCase(Edit1.Text)+'*'; table1.Filter:='Nom_cl='+QuotedStr(x); table1.Filtered:=true; end; end;

بالتوفيق إن شاء الله.