StringGrid Hücrelerinde String Arama

[husonet]

Bunuda Çok önceden forum da sormuşlardı eklediğimi zannediyordum eklememişim. Belki birine lazım olur.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Aranacak:String; 
    Str:String; 
    Kolon, satir:integer; 
begin 
    Aranacak:=inputBox('Bulunacak String', 'Aranacak',"); 
    For satir:= 0 To StringGrid1.RowCount -1 Do 
    Begin 
        For kolon:= 0 To StringGrid1.ColCount -1 Do 
        Begin 
            Str:=stringgrid1.Cells[kolon,satir]; 
            if Aranacak = Str Then 
            Begin 
                ShowMessage('Bulundu'); 
                StringGrid1.Row := Satir; 
                StringGrid1.Col := Kolon; 
                Break; 
             End; 

        End; 
    End; 
end; 

İyi Geceler.