表中的部分搜索(BDE)

Question

我用paradox 7创建了一个数据库。我通常使用如下语法进行搜索：

Table.Filter := 'Country=' + QuotedStr(Edit.Text);

这将返回那些国家/地区字段与编辑中输入的文本相同的行。当我想搜索以"L“开头的国家/地区时，我使用以下语法：

Table.Filter := 'Country=' + QuotedStr(Edit.Text + '*');

但是如何搜索以"L“结尾的字段呢？此语法不起作用：

Table.Filter := 'Country=' + QuotedStr('*' + Edit.Text  );

谢谢。

Answer 1

您可以使用OnFilterRecord事件执行自定义筛选。以你的例子，也许会有一些东西。如下所示：

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
var
  s: string;
begin
  Accept := False;
  if not DataSet.FieldByName('Country').IsNull then begin
    s := DataSet.FieldByName('Country').AsString;
    Accept := Copy(s, Length(s), 1) = 'L';
  end;
end;