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

السلام عليكم

كيف أجعل عملية البحث لا تتحسس بحالة الأحرف الكبيرة والصغيرة

في قاعدة البيانات Absolute

كود :
begin
Edit1.Text:=TrimLeft(Edit1.Text) ;
if Edit1.Text<>'' then
begin
DataModule1.ABSTable1.IndexFieldNames:='Num_S' ;
DataModule1.ABSTable1.MasterFields:='' ;
DataModule1.ABSTable1.close;
DataModule1.ABSTable1.Filtered:=true ;
DataModule1.ABSTable1.Filter:='[Num_S]='+#39 +Edit1.Text+'*'+#39 ;
DataModule1.ABSTable1.Active:=true;
end else
begin
DataModule1.ABSTable1.close;
DataModule1.ABSTable1.Filtered:=false ;
DataModule1.ABSTable1.Active:=true;
end;

السلام عليكم

To improve peformance of a single-field case-insensitive filter, such as

PHP كود :
FilterOptions := [foCaseInsensitive];  
Filter := 'State = ' + QuotedStr('CA'); 

you should create a case-insensitive index on the search field:

PHP كود :
ABSTable1.AddIndex('idxState_CaseIns', 'State', [ixCaseInsensitive]); 

المصدر:

كود :
http://www.componentace.com/help/absdb_manual/speedupsearchesandfilters.htm

شكرا جزيلا على المساعدة هذا ما كنت ابحث عنه

بعد تجربة الكود نجحت الفكرة لكن مازل عندي خطا بسيط سأحاول حله

تحياتي...

فارس المطر

لؤي

فارس المطر