Ver Mensaje Individual
  #6  
Antiguo 23-01-2007
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Reputación: 23
ContraVeneno Va por buen camino
Que bueno ya lo has solucionado. Sin embargo me gustaría agregar mi comentario.

Para mi sería mucho más sencillo utilizar una TListCheckBox en lugar de CheckBoxes individuales para cada campo. Utilizando un Listcheckbox (como ya recomendó Dec) puedes tener una lista de 10, 30, o 50 campos, sin necesidad de tanto espacio en tu diseño, ni de escribir un If por cada checkbox que quieras comprobar, además, puedes utilizar un StringList para generar la lista de campos automáticamente:

Código Delphi [-]
var i: integer;
Campos: TStringList;

begin; //del método que más te convenga
 Campos:= TStringList.Create;
 for i:=0 to Lista.Items.Count-1 do begin
  if Lista.Checked [i] then begin
   Campos.Add(Lista.items.strings[i]);
  end;
 end;
 showmessage(Campos.CommaText);
 Campos.Free;
end;

Esto lo puedes utilizar para el número de campos que quieras.
__________________


Última edición por ContraVeneno fecha: 23-01-2007 a las 17:51:14.
Responder Con Cita