select a cell of stringgrid

[marquessbr]

Hi all of list!
I need to select a cell of a stringgrid with a text, e.g: I need with my app to find in all cells of a stringgrid for the text typed in a tedit field.

have a whay to do this in lazarus?

peace!

[theo]

Is your problem to select a cell or to find a cell?
Afaik you can only select one cell at a time with TStringGrid.

[cpalx]

you must search cell by cell. It is not dificult

[marquessbr]

Hi theo, my pproblem is just find a text in a cell and then select this cell ...
Thanks, for reply.

Hi cpalx!
shiet, my grid is so big, this will take several time.
thanks!

[theo]

I don't know what exactly you don't understand.

Sth. like this?

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var i,pos:integer;
begin
  For i:=0 to StringGrid1.RowCount-1 do
     begin
     pos:=StringGrid1.Rows[i].IndexOf(Edit1.text);
       if pos > -1 then
         begin
          StringGrid1.Row:=i;
          StringGrid1.Col:=pos;
          StringGrid1.SetFocus;
          break;
         end;
     end;
end;       

[marquessbr]

thanks, theo!
For now, I beleave with this solve my problem.

peace