Dbgrid y Multiselect

[jorge_mosquera]

Hola, si tengo habilitado un dbgrid con la opcion Multiselect, como hago para marcar o desmarcar automaticamente todos los registros ?
Muchas gracias

[marcoszorrilla]

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.

[jorelivi]

Espero su ayuda para solucionar este problemita, pues no se como actualizar los registros ya seleccionados de un dbgrig. Este dbgrid solo actualiza un campo fecha.

[LordRiper]

if Lista.SelectedRows.Count>1 then // por si solo seleccionan uno...
for I := 0 to Lista.SelectedRows.Count-1 do
begin
Table.BookMark := Lista.SelectedRows[I];
// Todo lo que tengas que hacer
end
else
// Todo lo que tengas que hacer