Trasladar registros de un TDBGrid a labels

[ecfisa]

Hola skara.

Empezado por skara

Buenas tardes compañeros, tengo una duda, tengo un TDBGrid en el cual estoy listando cada uno de los nombres de los registros que tengo en una BD, lo que quiero realizar es darle al usuario la posibilidad de seleccionar 10 registros de ese listado y que los registros (Nombres) que el usuario haya seleccionado sean cargado a 10 Labels
Muchisimas gracias

Mostrar hasta diez valores de campos seleccionados a los labels:

Código Delphi [-]
...
implementation  

var
  la: array[0..9] of TLabel;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with DBGrid1 do
  begin
    DataSource.DataSet.Open;
    Options:= Options + [dgMultiSelect];
  end;
  la[0]:= Label1; la[1]:= Label2;
  la[2]:= Label3; la[3]:= Label4;
  la[4]:= Label5; la[5]:= Label6;
  la[6]:= Label7; la[7]:= Label8;
  la[8]:= Label9; la[9]:= Label10;
end;

procedure TForm1.btnToLabelClick(Sender: TObject);
var
  i: Integer;
begin
  with DBGrid1 do
  begin
    if SelectedRows.Count in [1..10] then
    begin
      for i:= 0 to SelectedRows.Count - 1 do
      begin
        DataSource.DataSet.GotoBookmark(Pointer(SelectedRows[i]));
        la[i].Caption:= DataSource.DataSet.FieldByName('NOMBRE').AsString; // (*)
      end;
    end;
  end;
end;

(*) Para el ejemplo, el nombre del campo a pasar a los labels es NOMBRE.

Saludos