dxmemData OnFilterRecord功能

procedure TForm1.Button1Click(Sender: TObject);

begin

dxMemData1.CopyFromDataSet(ADOQuery1);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

with dxMemData1 do

begin

 

// dxMemData1.Filter :=

dxMemData1.Filtered := True;

dxMemData1.ProgrammedFilter := True;

First;

while not eof do

begin

Memo1.Lines.Add(FieldByName('fymx_bh').AsString + ':' + FieldByName('fymx_mph').AsString);

Next;

end;

end;

end;

 

procedure TForm1.dxMemData1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

begin

Accept := DataSet.FieldByName('fymx_mph').AsString = Trim(Edit1.Text);

end;