04-08-2017, 04:10 PM
السلام عليكم
هل يمكن جعل هذا الكود يبحث في اكثر من حقل بدل حقل واحد
هل يمكن جعل هذا الكود يبحث في اكثر من حقل بدل حقل واحد
كود :
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;