FindDialog???

[Piro]

Dank an alle. Es funktioniert auf einmal.

Delphi-Quellcode:

procedure TForm1.btnsuchenClick(Sender: TObject);
begin
 FindDialog1.Execute;
end;

Delphi-Quellcode:

procedure TForm1.FindDialog1Find(Sender: TObject);
var
 i, x: integer;
begin
 for i:=0 to StringGrid1.RowCount -1 do
     for x:=0 to StringGrid1.ColCount -1 do
     begin
         if StringGrid1.cells[x,i] = FindDialog1.FindText then
         ShowMessage('gefunden');
     end;
end;