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;

[danten]

OK,datamodule:

Delphi-Quellcode:

procedure Tdm.tab_dodavatelFilterRecord(DataSet: TDataSet; var Accept: Boolean);
var
 f:TField;
begin
  f := Dataset.FieldByName('Firma');
  Accept := (Length(f.AsString)>0) and (f.AsString[1] > frm_export.sEdit1.Text) and (f.AsString[1] <= frm_export.sEdit2.Text);
end;

MainForm:

Delphi-Quellcode:

procedure Tfrm_export.sButton1Click(Sender: TObject);
var
  Accept: boolean;
begin
  with (dm.ds_distributor.DataSet) do begin
    Filtered := False;
    dm.tab_dodavatelFilterRecord(dm.ds_distributor.DataSet,Accept);
    Filtered := True;
  end;
end;

Where is the letter 'A'?

[danten]

I am sorry, Sorry, I forgot to change the sign:

Accept := (Length(f.AsString)>0) and (f.AsString[1] > frm_export.sEdit1.Text) and (f.AsString[1] <= frm_export.sEdit2.Text);
new
Accept := (Length(f.AsString)>0) and (f.AsString[1] >= frm_export.sEdit1.Text) and (f.AsString[1] <= frm_export.sEdit2.Text);
is work.
Thanks all.