AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Schnellsuche in DB, wie realisieren?
Thema durchsuchen
Ansicht
Themen-Optionen

Schnellsuche in DB, wie realisieren?

Ein Thema von BBoy · begonnen am 9. Jun 2011 · letzter Beitrag vom 10. Jun 2011
Antwort Antwort
BBoy

Registriert seit: 17. Jan 2007
418 Beiträge
 
Delphi 10 Seattle Professional
 
#1

AW: Schnellsuche in DB, wie realisieren?

  Alt 9. Jun 2011, 12:57
Mit Locate finde ich das erste vorkommen. Und wie soll ich dann das nächste vorkommen des Suchstrings finden?
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#2

AW: Schnellsuche in DB, wie realisieren?

  Alt 9. Jun 2011, 13:15
http://www.delphipraxis.net/115965-l...ext-prior.html
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.880 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Schnellsuche in DB, wie realisieren?

  Alt 9. Jun 2011, 18:27
Aber es gilt trotzdem TurboDB != BDE !
Markus Kinzler
  Mit Zitat antworten Zitat
BBoy

Registriert seit: 17. Jan 2007
418 Beiträge
 
Delphi 10 Seattle Professional
 
#4

AW: Schnellsuche in DB, wie realisieren?

  Alt 10. Jun 2011, 16:38
Das ist mir schon klar Irgendwann werde ich wechseln

Konnte die Schnellsuche realisieren. Da es sich immer nur um 10-40 Datensätze handelt ist diese Methode OK.

Delphi-Quellcode:
procedure TForm2.RzEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
i : Integer;
begin
  if key = vk_return then begin
    if rzedit2.Text <> 'then begin
      datamodule1.TourTable1.DisableControls;
      for i := AktSIndex to datamodule1.TourTable1.RecordCount -1 do begin
        datamodule1.TourTable1.RecordNo := i;
        if pos(trim(lowercase(rzedit2.Text)),lowercase(datamodule1.TourTable1GSName.AsString)) <> 0 then begin
          datamodule1.TourTable1.EnableControls;
          JvDBUltimGrid2.SelectedIndex := datamodule1.TourTable1.RecordNo;
          aktsindex := datamodule1.TourTable1.RecordNo+1;
          exit;
        end
        else begin
          aktsindex := 1;
        end;
      end;
      datamodule1.TourTable1.EnableControls;
    end;
  end;
end;
Noch Verbesserungsvorschläge ?
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:17 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz