StringGridde Birşeyi Arayıp Bulma O Alana Locate Olma

[FXERKAN]

selam

dbgrid locate komutunun yaptığı işi stringgridede yaptırabilceğim bir kod yada fonksiyon var mı acaba

ben mesela 0.sutun da ara diyeceğim aranan şeyi bulursa stringgrid o bulunan yerde focuslanacak bunu nasıl yaparım

[husonet]

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;

Program kodunu senin için yazdım. Bütün satır ve sütünlarda arar.

Kolay Gelsin...