« 2006年6月 | トップページ | 2006年9月 »

2006/07/05

TJvMemoryData

JvMemoryDataにフィルターを掛けたいと思い、↓のようにしてみたが、何も起きなかった。

JvMemoryData1.Filter := 'Country=' + QuotedStr('JP');
JvMemoryData1.Filtered := True;

どうやら、TJvMemoryDataはFilterプロパティをサポートしていないようだ。
幸い、OnFilterRecordイベントは発生するので何とかなった。

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  Form1.JvMemoryData1.Filtered := True;
end;

procedure TForm1.JvMemoryData1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  if DataSet.FieldByName('Country').AsString = 'JP'
  then begin
    Accept := True;
  end else begin
    Accept := False;
  end;
end;

| | コメント (0) | トラックバック (0)

« 2006年6月 | トップページ | 2006年9月 »