DataSet.LocateNext (horizontale Suche)

[Perlsau]

Meinst du sowas:

Delphi-Quellcode:

...
Var
  Zaehl : Integer;

Begin
  Zaehl := 0;
  MyQuery.SQL.Text := 'select Spalte1, Spalte3 from MeineTabelle order by Spalte1';
  MyQuery.Open;
  IF MyQuery.Locate('Spalte1;Spalte3',VarArrayOf([Suchwort1, Suchwort2]),[]) THEN
  Begin
    Inc(Zaehl);
    WHILE MyQuery.LocateNext('Spalte1;Spalte3',VarArrayOf([Suchwort1, Suchwort3]),[]) DO
          Inc(Zaehl);
  End;
  ShowMessage('Insgesamt gefunden: ' + IntToStr(Zaehl));
End;

Ungetestet, da im Foren-Editor getippt ...