Client Data Set suchen nach Stichwörter/Einzelnen Buchstaben

[Perlsau]

Zitat von sx2008:

Filtern
Es werden nur Datensätze angezeigt die dem Suchmuster entsprechen. Dazu wird das Event OnFilterRecord verwendet.

Mit Verlaub, aber das ist nicht richtig. Auszug aus der Delphi-Referenz:

TClientDataSet.OnFilterRecord
Wird jedes Mal ausgelöst, wenn ein anderer Datensatz in der Datenmenge aktiviert und ein Filter verwendet wird.

TClientDataSet.Filter
Gibt den Text des aktuellen Filters einer Datenmenge an.

TClientDataSet.Filtered
Gibt an, ob für die Datenmenge ein Filter aktiv ist.

[Sir Rufo]

Wenn eine DataSet gefiltert werden soll, dann muss TDataSet.Filtered auf True und entweder man schreibt etwas in TDataSet.Filter und/oder benutzt den Event

TDataSet.OnFilterRecord:

Wenn der Datensatz die Kriterien erfüllt, dann setzt man einfach Accept auf true und der Datensatz wird in der gefilterten Menge mit angezeigt. Ansonsten einfach auf False und der Datensatz gehört nicht mehr zur gefilterten Menge.

[sx2008]

Zitat von Perlsau:

Zitat von sx2008:

Filtern
Es werden nur Datensätze angezeigt die dem Suchmuster entsprechen. Dazu wird das Event OnFilterRecord verwendet.

Mit Verlaub, aber das ist nicht richtig. ...

Ich bin davon ausgegangen dass ein Volltextfilter für alle Felder des Datasets durchgeführt werden soll.
Die eingebauten Fähigkeiten des Datasets sind dafür aber nicht ausreichend weshalb auf jeden Fall Sourcecode nötig wird um eine gute und allgemeingültige Lösung zu finden.
Dazu das Kochrezept:

Delphi-Quellcode:

Accept := False;
for i := 0 to Dataset.Fields.Count-1 do
begin
  f := Dataset.Fields[i];
  if not f.IsNull and f.Visible then
  begin
    // Ggf. müssen bestimmte Feldtypen ausgeschlossen werden (Felder mit binärem Inhalt, TBlobField)

    s := f.Text;
    // die WildCompare Funktion liefert True wenn ein String auf das Suchmuster, das ? und * enthalten darf, passt
    // passende Funktionen findet man hier in der DP
    // Wer mag kann dafür auch reguläre Ausdrücke einsetzen (könnte aber den Benutzer damit überfordern)
    if WildCompare(s, suchpattern) then
    begin
      Accept := True;
      break;
    end;
  end;
end;

[Luki206]

Ok Danke für die Rückmeldungen @Perlsau: ich hatte Daddy H's Rat befolgt. Nur habe ich nicht in der Online-Hilfe gesucht sondern in Delphi-Treff bei dem MyBase Tutorial aber was ich dort gefunden habe reicht eigentlich, aber eure Lösungen/Denkanregungen werde ich im Hinterkopf behalten

[Hansa]

In Perlsaus 2. Link (Rest nicht danach überprüft) ist ja auch mein % aufgeführt. Das % nicht einfach so vergessen.