Mam problem z filtrowaniem rekordów w bazach danych Paradox 7
Korzystam z :
procedure TForm18.TableFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := Pos(Edit1.Text, DataSet.FieldByName('Imie').AsString) <> 0;
end;
i wywołuję nacisnięcie buttona by mi filtrował:
procedure TForm18.BitBtn1Click(Sender: TObject);
begin
Table1.Filtered:= False;
Table1.OnFilterRecord := nil;
Table1.Filter := 'State = ' + QuotedStr(Edit1.Text);
Table1.Filtered := True;
end;
Co robię źle?
Proszę o pomoc.