ايران ويج

باسلام به اساتیدگرامی وضمن تشکرازراهنمایی های ارزنده تان،
برنامه ای داریم که یکی ازابزارهای جستجودربانک آن جستجوبراساس کدملی می باشد.وکدمربوط به سرچ آن به این شرح است:

کد: 
procedure TForm13.Edit1Change(Sender: TObject);

begin

if edit1.Text<>'' then

begin

adotable1.fliter:='cod_melli like ''%' + Trim(Edit1.Text) + '%''';

  adotable1.Filtered := True;

end;

if edit1.Text='' then

adotable1.Filtered:=false;

end;

procedure TForm13.FormCreate(Sender: TObject);

begin

edit1.Color:=CLYellow;

end;

همانطورکه درتصویرضمیمه ملاحظه می فرماییداخطارمی دهد.
لطفاارشادبفرمایید.[/align]

به جای کوت های اضافه ' میتونین از تابع QuotedStr استفاده کنید بهتر هست

کد: 
Table.fliter := '(Name LIKE '+ QuotedStr('%'+ temp + '%') +') OR (ID LIKE '+ QuotedStr('%'+ temp + '%') +')';

    Table.Filtered := True;

نوع فیلد کد ملی رو چی گرفتین؟
بهتره % قبل از Trim(Edit1.Text) رو بردارین و یک تست بکنین

استادگرامی:lord_viper
تست کردم جواب نداد.ضمناًبنده کدملی راازنوع (Number)و Duble گرفته ام.

amirkazem

lord_viper

amirkazem