Agregar dato de un combobox a una columna de un dbgrid

[rufo]

Hola amigos buenos días quisiera ver si me pueden ayudar, resulta que tengo un combobox, dbgrid y un botón de agregar, lo que quiero hacer es que cuando tenga una dato en el combobox y le de clic al botón este me agrege el dato a una columna del dbgrid pero como le hago porque he usado este código pero me da error, espero que me ayuden por favor.

if combobox7.Text<>'' then
   begin
      dbgrid1.Columns.Add.Field.AsString[1](uppercase(combobox7.text));
   end
end;

[ecfisa]

Hola rufo.

Código Delphi [-]
...
  if ComboBox7.ItemIndex <> -1 then
    with DBGrid1 do
    begin
      DataSource.DataSet.Edit;
      SelectedField.AsString := ComboBox7.Text;
      DataSource.DataSet.Post;
    end;

Si deseas los ítems del combo en mayúsculas, pone la propiedad CharCase igual a ecUpperCase desde el Object Inspector.

Saludos

[rufo]

Gracias ecfisa pero este me agrega en la primera columna del dbgrid pero si lo quiero en una columna especifica del dbgrid ¿como le hago?

[ecfisa]

Hola rufo.

Empezado por rufo

Gracias ecfisa pero este me agrega en la primera columna del dbgrid pero si lo quiero en una columna especifica del dbgrid ¿como le hago?

No, en realidad te lo agrega en la celda que esté seleccionada en ese momento (SelectedField).

Si lo deseas en una columna en especial :

Código Delphi [-]
...
 if ComboBox1.ItemIndex <> -1 then
    with DBGrid1 do
    begin
      DataSource.DataSet.Edit;
      DataSource.DataSet.FieldByName('NOMBRE').AsString := ComboBox1.Text; // (*)
      DataSource.DataSet.Post;
    end;

(*) Donde NOMBRE, es el nombre del campo que se visualiza en la columna que se muestra en el DBGrid y deseas modificar (recuerda que un DBGrid es la representación visual de los datos de una tabla).

[rufo]

Listo me funciono tu código gracias.