Client Data Set suchen nach Stichwörter/Einzelnen Buchstaben

[Luki206]

Hi, ich stehe jetzt gerade vor dem Problem: Wie kann man ein Suchfeld so programmieren das ich passende Inhalte so angezeigt bekomme ohne das ich den kompletten Namen dieses Felds eingeben muss? Weil im Moment suche ich noch so im Client Data Set mit CDS.Locate(...); und da muss ich ja wirklich den Inhalt eines Feldes wirklich so in mein Edit Feld schreiben damit ich dort hin navigiert werde. Ich denke so an die Methode wie es die Forensuche auch macht das wenn keine Übereinstimmungen gefunden wurden so ähnliche Artikel angezeigt werden.
Danke
Luki

[Hansa]

Versuch mal Such%

[Luki206]

Hä? Wie jetzt?

[DeddyH]

Schau Dir die Parameter von Locate doch einmal genau an, besonders den letzten.

[Luki206]

Ja ok danke, nur wie kann ich das ganze in eine Liste packen und nicht das es im DBGrid angezeigt wird? Also alle übereinstimmende Treffer?

[Perlsau]

Zitat von Luki206:

Ja ok danke, nur wie kann ich das ganze in eine Liste packen und nicht das es im DBGrid angezeigt wird? Also alle übereinstimmende Treffer?

Offensichtlich hast du DeddyH's Rat nicht befolgt, dir in der Online-Hilfe Locate einmal genauer anzuschauen, denn sonst würdest du bemerkt haben, daß Locate den Datensatz-Zeiger verschiebt, wenn die Methode etwas gefunden hat und keine Datenmenge zurückliefert, wie du das erwartest.

Für gefilterte Datenmengen setzt du entweder den Filter des Datasets ein – genau! die Namensähnlichkeit mit dem, was du suchst, ist nicht zufällig – oder du filterst bereits im Dataset via SQL-Statement, indem du die Where-Klausel entsprechend setzt.

Und jetzt frag bitte nicht gleich wieder, wie das geht, sondern schau dir zuerst einmal die entsprechenden Punkte in der Online-Hilfe an, dort steht das nämlich genau drin. Falls deine nur auf Englisch ist und du Englisch nicht gut kannst, benutze die hiesige Delphi-Referenz.

[sx2008]

Willst du suchen oder filtern?

Suchen
das Dataset wird von Vorne nach Hinten (oder umgekehrte Suchrichtung) durchsucht und bei jedem Treffer bleibt der Datensatzcursor im betreffenden Datensatz stehen.
Danach muss der Benutzer die Suche neu anstoßen wenn er weitere Treffer sehen möchte.
Sollte die Suche keinen (weiteren) Treffer ergeben muss der Benutzer durch eine Meldung oder sonstigen Hinweis darauf hingewiesen werden.

Die Locate -Methode ist auch eine Suchfunktion; sie hat aber den Mangel dass man nicht von der aktuellen Position weitersuchen kann. Ausserdem kann man mit Locate nicht in allen Feldern suchen ("Volltextsuche").

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

[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;