Filter auch mit

[Leuselator]

Delphi-Quellcode:

procedure TSuche_Empf.TableSucheFilterRecord(DataSet: TDataSet; 
  var Accept: Boolean); 
begin 
if (copy(TableSuche.FieldByName('Kategorie').AsString,1,Length(Edit1.Text))=Edit1.text) 
  and (TableSuche.FieldByName('Firma').AsString=FlatEdit1.text) 
  then Accept:=true 
  else Accept:=false; 
end;