Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Filter mit Ähnlichkeit (https://www.delphipraxis.net/8400-filter-mit-aehnlichkeit.html)

FbAi 3. Sep 2003 22:28


Filter mit Ähnlichkeit
 
Ich brauch dringend Hilfe.
Ich bin ziemlich neu in der Delphi programmierung und hab deshalb folgende Frage:

Ich habe eine TTable-, ein TDBGrid- und ein TEEdit-Komponente
Bei einer Eingabe im Edit-Feld
möchte ich nun im Grid alle Dateansaätze anzeigen lassen die mit diesem Buchstaben anfangen.
Wenn man nun einen 2.Buchstaben eingibt sollen alle Datensätze angezeigt werden in denen diese 2 buchstaben am anfang vorkommen.
USW.

Gross- und Kleinschreibung sollen nicht beachtet werden.
Kann mir jemand sagen wie ich das mache ???
und möglichst schnell :) ???

Danke im Vorraus

APP 4. Sep 2003 07:05

Re: Filter mit Ähnlichkeit
 
Hallo,

eine schnelle und unkomplizierte Lösung ohne TQuery wäre folgende:

Delphi-Quellcode:
PROCEDURE TForm1.Edit1KeyUp(Sender: TObject; VAR Key: Word;
  Shift: TShiftState);
BEGIN
  // Nach Enter wird gefiltert
  IF Key = vk_Return THEN
    BEGIN
      // Wenn Edit1.Text nicht leer ist
      IF Edit1.Text <> '' THEN
        BEGIN
          // Gefiltert wird z.B. Alias "DBDEMOS" Tabelle "clients.dbf" Feld "LAST_NAME"
          Table1.Filter := 'LAST_NAME =' + QuotedStr(Edit1.Text + '*');
          Table1.Filtered := True;
        END
      ELSE
        // Wenn Edit1.Text leer ist alle Datensätze zeigen
        Table1.Filtered := False;
    END;

END;
Zum Ignorieren der Groß/Kleinschreibung kannst Du
Delphi-Quellcode:
  Table1.FilterOptions := [foCaseInsensitive];
setzen

FbAi 4. Sep 2003 10:15

Re: Filter mit Ähnlichkeit
 
ah danke !
soweit hatte ich das ja alles nur das mit dem stern hat geehlt !!!


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:55 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz