Código Delphi [-] ... var DS: TDataSet; begin if Edit1.Text > '' then begin DS := DataSource1.DataSet; DS.Filtered := False; DS.Filter := 'NOMBRE LIKE ' + QuotedStr(Edit1.Text + '%'); DS.Filtered := True; end; { ( opcional ) else MessageBeep(MB_ICONERROR); } end;
... var DS: TDataSet; begin if Edit1.Text > '' then begin DS := DataSource1.DataSet; DS.Filtered := False; DS.Filter := 'NOMBRE LIKE ' + QuotedStr(Edit1.Text + '%'); DS.Filtered := True; end; { ( opcional ) else MessageBeep(MB_ICONERROR); } end;