Seleccionar todas las filas de un DBGrid

[JavierB]

Hola a todos.

En las options de un DBGrid tengo puesto dgMultiSelect a true. ¿Habría alguna forma de que, por código, se seleccionaran todas la filas?

Gracias por vuestra ayuda. Saludos,

[marcoszorrilla]

Prueba este código.

Código Delphi [-]
function GridSelectAll(Grid: TDBGrid): Longint; 
begin 
  Result := 0; 
  Grid.SelectedRows.Clear; 
  with Grid.Datasource.DataSet do 
  begin 
    First; 
    DisableControls; 
    try 
      while not EOF do 
      begin 
        Grid.SelectedRows.CurrentRowSelected := True; 
        inc(Result); 
        Next; 
      end; 
    finally 
      EnableControls; 
    end; 
  end; 
end;

Un Saludo.

[JavierB]

Hola marcoszorrilla

Muchas gracias por el código, funciona de maravilla.

Saludos,

[pnsd_89]

a mi me cuelga el programa este codigo con un grid con 51 registros. ¿alguien sabe por que razon ocurre esto?

[djemix]

Yo tengo una duda parecida a la inicial, la cosa es que tengo un grid con varias columnas seleccionadas con el raton. Lo que quiero es guardar esas en un temporal, porque tengo q actualizar el grid y al hacerlo se me borran las selecciones, asi para luego poder restaurarlas...

Como puedo hacer esto?? Gracias y un saludo!!