Überprüfen Sie in TDataSet Zeile gegen eine Filterzeichenfolge

Question

Ich verwende ein DevExpress TdxMemData im Speicher TDataSet Nachkomme. Es hat zwar Filtered: Boolean und Filter: String-Eigenschaften, es scheint jedoch nicht automatisch irgendetwas damit zu tun, sondern verlässt sich auf das Ergebnis des Accept-Parameters des OnFilterRecord-Ereignisses.

Also nach was ich suche ist ein Weg (vielleicht ist es in TdxMemData oder woanders in DevExpress's Code-Reihe), den Filtertext zu analysieren und ihn auf das Dataset anzuwenden.

Idealerweise möchte ich eine Möglichkeit, eine einzelne Zeile mit dem Filter zu testen, um zu sehen, ob es übereinstimmt, ohne es aus dem Dataset zu filtern (ich möchte Zeilen hervorheben, die dem Filter entsprechen).

Beispiel Filter string:

((Name = 'Jim') and (Rep > 1000)) or (Rep > 5000) 

So ist verschachtelt und die und oder der. Es wird tatsächlich von DevExpress TcxDBFilterControl erstellt.

Ich hoffe wirklich, es gibt etwas Einfaches, das ich vermisse.

Update: Ich öffnete eine ticket with DevExpress, um zu sehen, ob sie irgendeine Art von Lösung unterstützen. Ich habe ihre Lagerantwort gefunden, die they don't support filtering auf TdxMemData.

Answer 1

Ich weiß, dass dies nicht die Antwort ist, nach der Sie suchen, aber das TdxMemData-Dataset unterstützt keine Filterzeichenfolgen. Um Filter zu verwenden, codieren Sie entweder Ihr eigenes OnFilterRecord-Ereignis oder setzen Sie ProgramedFilter auf true und füllen Sie die FilterList mit einer Liste der Datensätze, die (zur Laufzeit) gefiltert werden.

Eine Möglichkeit wäre, einen eigenen Parser zu programmieren, um die Filterzeichenfolge mit dem aktuellen Datensatz im OnFilterRecord-Ereignis zu vergleichen.

Answer 2

Möglicherweise möchten Sie die TdxMemData durch TkbmMemTable ersetzen. Es ist kostenlos, funktioniert ähnlich wie die DX-Komponente und unterstützt Filter-Strings. Würde wahrscheinlich viel weniger Zeit für die Portierung benötigen, als einen Filterstring-Parser in OnFilterRecord zu implementieren! Es funktioniert problemlos mit den anderen DX-Komponenten.

Answer 3

Was Sie suchen, ist nicht die Daten filtern, sondern eine Frage der Anzeige anders, wenn es eine Bedingung erfüllt. Wenn Sie eine TDBGrid verwenden die Daten anzuzeigen, schauen Sie in die DrawColumnCell() Ereignis auf dem TDBGrid:

procedure TForm1.dbgrd1DrawColumnCell(Sender: TObject; const Rect: TRect; 
    DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var 
    DBG: TDBGrid; 
begin 
    DBG := TDBGrid(Sender); 
    // Add any other conditions from your 'filter' here in the next line. 
    if (YourData.FieldByName('WHATEVER').AsString = 'Jim') and 
    (YourData.FieldByName('REP').AsInteger > 1000) then 
    Column.Font.Color := clRed; 
    DBG.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end; 

Da Sie verwenden TdxMemData, sind Sie wahrscheinlich das Devex Rasters, auch. Es muss einen ähnlichen Weg haben, etwas anderes als die Standardzeichnung zu tun; Sie können dort eine ähnliche Technik verwenden. (Ich habe das DevEx-Zeug in ein paar Jahren nicht verwendet; derzeitiger Arbeitgeber mag sie nicht und wird daher nicht für die Kosten aufspringen. :-()