ein string der combobox im stringgrid suchen

[MondoShiva]

Delphi-Quellcode:

procedure TForm1.searchBClick(Sender: TObject);
var

j: Integer;
i: Integer;
begin
    for j:=0 to stringgrid.colCount-1 do
    begin
    for i:=0 to StringGrid.rowCount-1 do
      begin
      if pos(lowercase(combobox.Items.Strings[combobox.itemindex]),lowercase(stringgrid.Cells[j,i]))>0 then
        begin
         StringGrid.Row := i;
         StringGrid.Col := j;
         ShowMessage(combobox.Items.Strings[combobox.itemindex]+' wurde in Zeile '+intToStr(i)+ ' in Spalte ' + inttostr(j)+' gefunden');
        end;
      end;
    end;

habs jetzt nicht getestet aber das dürfe dein problem mit der suche erledigen!
hoffe es hilft dir!