Einträge in einem DBGrid filtern

[MondoShiva]

Delphi-Quellcode:

var
j: Integer;
i: Integer;
begin
    for j:=0 to DBGrid1.colCount-1 do
    begin
    for i:=0 to DBGrid1.rowCount-1 do
      begin
      if pos(lowercase(SucheText.text),lowercase(DBGrid1.Cells[j,i]))>0 then
        begin
         DBGrid1.Row := i;
         DBGrid1.Col := j;
         UdbTable_Produkte.RecNo := i; //  hier kannst du beispielsweise nur aus der tabelle produkte suchen
                                       //jenachdem ob du table oder querry benutzt kannst das ja austauschen 
         ShowMessage(SucheText.Text+' wurde in Zeile '+intToStr(i)+ ' in Spalte ' + inttostr(j+1)+' gefunden');
        end;
      end;
    end;
end;

hoffe das hilft dir ein wenig!
Musst es deinen wünschen nach umgestalten