Hola.
Cita:
Empezado por rafaelon
... si mas adelante quisiera alimentar los datos de checkboxlist desde una tabla como podría hacer ?
|
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
var
clb: TCheckListBox;
begin
clb := CheckListBox1;
clb.Items.Clear;
unQuery.Close;
unQuery.SQL.Text := 'SELECT DESCRIPCION FROM SINTOMAS'; unQuery.Open;
while not unQuery.Eof do
begin
clb.Items.Add( unQuery.FieldByName('DESCRIPCION').AsString );
unQuery.Next;
end;
end;
(*) Donde:
DESCRIPCION sería el nombre del campo que detalla el problema y
SINTOMAS el nombre de la tabla que los contiene.
Saludos