Pasar registros de una DBGrid a otra Dbgrid usando multiselect

[Soa Pelaez]

Necesito que me ayuden, necesito pasar los datos que tengo en una dbgrid, el usuario puede ir seleccionando los registros que desea pasar y cuando el lo desee ya sea por medio de un botón o el evento scroll dichos datos seleccionados se pasarán a otra dbgrid que esta abajo y de la primera Dbgrid los datos pasados a la segunda desaparecerán o almenos validarlos para que no se dejen repetir en caso de que el usuario vuelva a seleccionar los mismos por equivocación.
De antemano muchas gracias.

[Casimiro Notevi]

No olvides nuestra guía de estilo, gracias

[ecfisa]

Hola.

Otra opción:

Código Delphi [-]
//  SourceGrid.Options := SourceGrid.Options + [dgMultiSelect]

procedure CopyGridData( Source, Target: TDBGrid );
var
  i,j: Integer;
begin
  if Source.SelectedRows.Count > 0 then
  begin
    for i := 0 to Source.SelectedRows.Count-1 do
    begin
      Source.DataSource.DataSet.GotoBookmark( Pointer(Source.SelectedRows.Items[i]) );
      Target.DataSource.DataSet.Append;
      for j := 0 to Target.FieldCount-1 do
        Target.Fields[j].Value := Source.Fields[j].Value;
      Target.DataSource.DataSet.Post;
    end;
  end;
end;

llamada ej.:

Código Delphi [-]
procedure TForm1.btnCopy(Sender: TObject);
begin
  CopyGridData( SourceGrid, TargetGrid );
end;

Hace un tiempo se trató una variante aquí: Drag & Drop de una selección múltiple.

Saludos