Hola skara.
Cita:
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