Recorrer dbgrid con filas seleccionadas o no

[[newtron]]

Hola a tod@s.

Tengo un dbgrid con la opción de MultiSelect activada con la cual se pueden seleccionar varias filas simultaneamente.

El problema es que necesito recorrer el dbgrid evaluando cada fila para que si está seleccionada haga una cosa y si no otra y no sé cómo hacerlo porque todo lo que veo es para recorrer solamente las filas seleccionadas omitiendo las que no.

Agradecería que alguien me dijera cómo saber si una fila determinada del dbgrid está seleccionada o no.

Gracias y un saludo

[ecfisa]

Hola amigo

Fijate si este ejemplo te sirve de guía:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  inx: Integer;
begin
  with DBGrid1.DataSource do
  begin
    DataSet.First;
    while not DataSet.Eof do
    begin
      if DBGrid1.SelectedRows.Find(DataSet.Bookmark, inx) then
        ListBox1.Items.Add(DBGrid1.Columns[0].Field.AsString + ' (Seleccionada)')
      else
        ListBox1.Items.Add(DBGrid1.Columns[0].Field.AsString);
      DataSet.Next;
    end;
  end;
end;

Saludos.

[[newtron]]

Perfecto amigo ecfisa.

Como siempre mil gracias por tu ayuda.

Saludos.