+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية البحث بالأحرف الكبيرة و الصغيرة؟ (/showthread.php?tid=3489)
كيفية البحث بالأحرف الكبيرة و الصغيرة؟ - saski - 07-10-2011
أخوتي عندي برنامج فيه تسجيلات متنوعة بأحرف كبيرة و بأحرف صغيرة
فمثلا عندما أبحث عن التسجيلات بأحرف كبيرة تظهر فقط المكتوبة بأحرف كبيرة
فكيفية إظهارها كلها المكتوبة بالصغير و بالكبير؟
وجزاكم الله ألف خيرا.
و هذه محاولتي في البحث:
كود :
[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;كيفية البحث بالأحرف الكبيرة و الصغيرة؟ - أبو معاذ - 07-10-2011
السلام عليكم ورحمة الله وبركاته ،
هل جربت الدالة 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;بالتوفيق إن شاء الله.