DBGrid durchsuchen

[Tim Henford]

Hallo,

ich versuche gerade eine Suchfunktion für ein DBGrid zu realisieren.
Und zwar hat ich mir das so vorgestellt, dass man das Feld, in dem man suchen will, auswählt und dann in ein EditFeld den Suchbegriff eingibt.

Nun dacht ich, ich könnte über eine Filter-Option

Delphi-Quellcode:

    Query.Filter:= 'Feld1='''+Edit1.Text+'''';
    Query.Filtered:= true;

    Query.First;
    while not Query.Eof do begin
      DBGrid1.SelectedRows.CurrentRowSelected := true;
      Query.Next;
    end;

  Query.Filtered:= false;

die interessanten Eintäge filtern, markieren und wieder entfiltern, aber dann stimmen die Indizes nach dem Entfiltern nicht mehr.

Gibt es eine bessere Lösung, die funktioniert?

[mkinzler]

Was meinst du mit Index? Ich würde die IDs zur eindeutigen Identifizierung eines datensatzes verwenden.
Willst du Filtern oder Suchen? Schau dir mal .Lookup an. Oder per SQL

[Tim Henford]

Im Prinzip möcht ich zum Einen einfach alle Einträge, die den Suchtext enthalten markieren lassen.
Wahrscheinlich kann ich da auch einfach den Filter drauflassen.

Es scheint mir so, dass wenn ich Filtere und alle gefilterten Einträge einfach markiere, merkt er sich:
Index 0,1,2 sind markiert.
Filter raus: 0,1,2 sind immernoch markiert, aber das sind ja andere Zeilen, nicht die Zeilen 12,17,29 in denen der Text nun wirklich ist.

Zum anderen wäre es auch interessant, die Row zu finden, in der zum ersten Mal der Suchtext vorkommt und man dann auf "Weitersuchen" klicken kann, um immer den nächsten zu finden und zu markieren.


Danke

[mkinzler]

Das macht .Locate

[Tim Henford]

wie kriegt man dann "weitersuchen" hin?

[mkinzler]

Einfach nocheinmal aufrufen.

[Tim Henford]

bei

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query.Locate('Felda','test',[loPartialKey,loCaseInsensitive]);
end

markiert er immer nur den ersten??

[mkinzler]

Bei TAdoQuery kannst du auch .Seek Antesten

[Jelly]

Nicht über DBGrid filtern oder suchen, sondern direkt über dem zugrunde liegenden Dataset. Dort kannst du die Eigenschaft Filter setzen. Nicht vergessen Filtered auf true zu setzen.
Jedoch prinzipiell, wenn es sich um viele (paar tausend Datensätze und mehr) handelt, würde ich nicht mehr lokal filtern sondern einen angepassten SQL Befehl neu an den Server schicken.