DBGrid filtering

[Bummi]

Delphi-Quellcode:

procedure TForm2.DatasetFilterRecord1(DataSet: TDataSet; var Accept: Boolean);
var
 f:TField;
begin
  f := Dataset.FieldByName('Firma');
    Accept := (Length(f.AsString)>0) and (f.AsString[1] <> 'A') and  (f.AsString[1] <= 'D');
end;

procedure TForm2.DatasetFilterRecord2(DataSet: TDataSet; var Accept: Boolean);
var
 f:TField;
begin
  f := Dataset.FieldByName('Firma');
  Accept := (Length(f.AsString)>0) and (f.AsString[1] in ['B'..'D']);
end;