Cita:
Empezado por NISOTO
Lo que necesito es copiar el valor de cada campo en un ComboBox
|
Cita:
Empezado por NISOTO
quiero que me muetre en 1 solo Combobox el contenido de cada columna, de un registro que yo selecccione.
|
Hola NISOTO.
De acuerdo a lo que entiendo de tus mensajes, sería:
Código Delphi
[-]
...
procedure TForm1.FormCreate(Sender: TObject);
const
SEP = ', ';
var
i: Integer;
s: string;
begin
DataSet.Open;
ComboBox1.Items.Clear;
while not DataSet.Eof do
begin
s:= '';
for i:= 0 to DataSet.FieldCount-1 do
s:= s + DataSet.Fields[i].AsString + SEP;
SetLength(s,Length(s)-Length(SEP));
DataSet.Next;
ComboBox1.Items.Add(s);
end;
ComboBox1.ItemIndex:= 0;
end;
...
procedure TForm1.DBGrid1CellClick(Column: TColumn);
const
SEP = ', ';
var
i: Integer;
s: string;
begin
s:='';
for i:= 0 to DataSet.FieldCount-1 do
s:= s + DataSet.Fields[i].AsString + SEP;
SetLength(s,Length(s)-Length(SEP));
ComboBox1.ItemIndex:= ComboBox1.Items.IndexOf(s);
end;
...
Saludos.