In StringGrid suchen

[Tpercon]

Hier mal was auf die Schnelle:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var suchtext:string;
    r,c:integer;
begin
suchtext:=Edit1.Text;
For r:=0 to StringGrid1.RowCount-1 do
 For c:=0 to StringGrid1.ColCount-1 do
  If StringGrid1.Cells[c,r]=suchtext
   then
    begin
     ShowMessage('Eintrag in Zeile '+InttoStr(r+1)+', Spalte '+InttoStr(c+1)+' gefunden!');
     Break;
    end;
end;

Gruß