كيفية البحث بالأحرف الكبيرة و الصغيرة؟
#1
أخوتي عندي برنامج فيه تسجيلات متنوعة بأحرف كبيرة و بأحرف صغيرة
فمثلا عندما أبحث عن التسجيلات بأحرف كبيرة تظهر فقط المكتوبة بأحرف كبيرة
فكيفية إظهارها كلها المكتوبة بالصغير و بالكبير؟
وجزاكم الله ألف خيرا.
و هذه محاولتي في البحث:
كود :
[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;
الرد
#2
السلام عليكم ورحمة الله وبركاته ،
هل جربت الدالة 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;

بالتوفيق إن شاء الله.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم