هل يمكن جعل هذا الكود يبحث في اكثر من حقل بدل حقل واحد

[salmaanga]

السلام عليكم
هل يمكن جعل هذا الكود يبحث في اكثر من حقل بدل حقل واحد

كود :

procedure TForm1.Edit1Change(Sender: *****); var x: String; begin if edit1.text = '' then Query1.filtered := false else begin x := edit1.text + '*'; Query1.filter := 'field1 =' + quotedstr(x); Query1.filtered := true; end; end;

[salmaanga]

هل يمكن البحث في اكثر من حقل في نفس الوقت عن طريق البحث بالحرف بإستخدام Edit1Change

[bassem_43]

السلام عليكم
للبحث و الفرز باكثر من حقل تفضل هده المواضيع
http://delphi4arab.net/forum/showthread....9%8A%D9%86
http://delphi4arab.net/forum/showthread....9%82%D9%84
http://delphi4arab.net/forum/showthread....86#pid2761