Find-Next in Query - Wie?

[Hansa]

Du mußt die Datenmenge aufbereiten, also zuerst eine vernünftige SELECT.
Das geht ungefähr so:

Delphi-Quellcode:

ArtDS.Close;
    ArtDS.SelectSQL.Text := 'SELECT * FROM ART WHERE UPPER (BEZ) LIKE UPPER (''%' + LabeledEdit1.Text + '%'') ORDER BY NR';
    ArtDS.Open;
    IF NOT ArtDS.IsEmpty THEN BEGIN
      WHILE NOT ArtDS.EOF AND weiter DO BEGIN

        lblArtBez.Caption := ArtDS.FieldByName ('BEZ').AsString;
        CASE MessageDlg('Artikel gefunden ?',mtInformation,
          [mbYes, mbNo, mbCancel], 0) OF
          mrNo     : begin
                       weiter := true;
                       lblArtNr.Caption := '';
                     end;
          mrYes    : begin
                       weiter := false;
                       gefunden := true;
                       close;
                     end;
          mrCancel : begin
                       LabeledEdit1.Text := '';
                       weiter := false;
                       close;
                       lblArtNr.Caption := '';
                     end;
        END;
        IF weiter THEN
          ArtDs.Next;
      END;
      IF ArtDS.Eof THEN
        ShowMessage ('nicht gefunden !');
    END

Nur als Anhaltspunkt ! Der Code ist viel umfangreicher, alles wäre jetzt zuviel und überflüssig. Das Proggy sucht anhand einer in ein Editfeld eingegebenen Suchanforderung zuerst mal alle Daten zusammen, die zutreffen KÖNNTEN. Da kannst Du nun durchwandern mit next. Dann habe ich noch 2 Variable "weiter" und gefunden". gefunden ist eben gefunden. weiter ist nicht gefunden, aber noch was da zum suchen. Den Rest mußt Du Dir denken/selber machen.