Grabar Una Opcion de CheckBox

[lKinGl]

Salu2

he hecho la solución de tu problema de esta forma

iserté
3 checkbox
1 edit
1 boton

marcaras los checkbox y luego presionas el boton y el revisa cual checkbox esta marcado y en el edit1 se refleja que checkbox marcaste

este es el codigo del boton (es la unica parte donde puse codigo)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
color:string;
begin
edit1.Clear;
if CheckBox1.Checked=true then
  begin
    color:=edit1.Text+' ,'+'Blanco';
    edit1.Text:=color;
  end
  else
  begin
  end;
if CheckBox2.Checked=true then
  begin
    color:=edit1.Text+' ,'+'Rojo';
    edit1.Text:=color;
  end
  else
  begin
  end;
if CheckBox3.Checked=true then
  begin
    color:=edit1.Text+' ,'+'Amarillo';
    edit1.Text:=color;
  end
  else
  begin
  end;
if Application.MessageBox('¿Desea Guardar?','')=6 then
  begin
    tutabla.insert;
    tutabla.fieldvalues['campocolor']:=trim(edit1.text);
    tutabla.post;
  end
  else
  begin
    CheckBox1.Checked:=false;
    CheckBox2.Checked:=false;
    CheckBox3.Checked:=false;
    edit1.Clear;
  end:
end;

espero que te sirva

[*Caro*]

Hola Camilo, yo utilizaria un CheckListBox que esta en la paleta Additional, así solo tendrias que recorrer y preguntar cuales estan chekeados, ejemplo:

Código Delphi [-]
var
 i : Integer;
 Colores : String;
begin
 Colores := '';
 for i:=0 to CheckListBox1.Items.Count-1 do
  begin
   if CheckListBox1.Checked[i] then
    Colores := Colores+CheckListBox1.Items[i]+',';
  end;
  showmessage(Colores);

En este codigo, tienes que quitarle la ultima coma, puede ser con un copy y tu cadena Colores sería la que guardarias en tu campo.

Otra forma sería, recorriendo los componentes de tu formulario, verificar si es un checkbox y hacer lo anterior.

Saluditos

[Camilo]

señores buenos dias, disculpas por mi ausencia, en mi pais ya era hora de ir a la cama y recien me levanto y veo su generosidad; voy a intentar las dos soluciones y en un ratito les cuento.
Mil y mil Gracias.