+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ماهو الخطا في هذا الكود المسؤول عن الفلترة (/showthread.php?tid=6753)
ماهو الخطا في هذا الكود المسؤول عن الفلترة - AgroSoft - 02-02-2015
مرحبا لي مشكلة انني صادفة نقص في فهم متطرقات التي تتادي بي للحصول على الفلترة
وهو بعد ان كتبت هذا الكود وان لم تخني الذاكرة هو هذه هي الطريقة الانسب
كود :
if edit1.Text<>'' then
begin
ADOTable1.Filter := 'Nam'+ quotedstr (edit1.Text +'*');
ADOTable1.Filtered := true;
end else
ADOTable1.Filtered := false;ماهو الخطا في هذا الكود المسؤول عن الفلترة - محمد عبد العزيز - 03-02-2015
ضف Like
كود :
ADOTable1.Filter := 'Nam like '+ quotedstr (edit1.Text +'%');راجع ما سبق
http://www.delphi4arab.net/forum/showthread.php?tid=2163
http://www.delphi4arab.net/forum/showthread.php?tid=3657
http://www.delphi4arab.net/forum/showthread.php?tid=8808
ماهو الخطا في هذا الكود المسؤول عن الفلترة - hakimrahal - 03-02-2015
السلام عليكم....بالنسبة للخطأ في الكود نقص علامة = بعد nam
ماهو الخطا في هذا الكود المسؤول عن الفلترة - S.FATEH - 03-02-2015
السلام عليكم كود اكثر اختصار بدل من if/then/else سطرين و حسب
كود :
ADOTable1.Filter := 'Name like '+ QuotedStr(Edit1.Text +'%');
ADOTable1.Filtered := Edit1.Text <> '';