Abrir Checlistbox checado de acordo com um campo da tabela

Delphi

18/12/2023

Pessoal existe alguma maneira de ao abrir o forms, o Checlistbox abra checado de acordo com um campo da tabela, uso esse código para receber os nomes
dm.fdsetor.open;
Dm.fdsetor.first;
While not dm.fdsetor.Eof do
Begin
Checlistbox1.items.add(dm.fdsetorsetores.value);
Dm.fdsetor.next;

Minha tabela contém os campos 
 
Id       Setor                          Valido
1         PRINCIPAL               1   
2         COBERTA                 0
3         ARQUIBANCADA     1
4         CADEIRA                   0


Ao abrir o forms o Checlistbox irá receber o campo setor da tabela,Gostaria que ao abrir o forms aonde no campo válido da tabela seja 1 ele abra checado e onde e 0 desmarcado exemplo:
CHECLISTBOX
[✓] PRINCIPAL
[ ] COBERTA
[✓] ARQUIBANCADA
[ ] CADEIRA

SERIA POSSÍVEL ISSO?
Alan

Alan

Curtidas 0

Melhor post

Natanael Ferreira

Natanael Ferreira

18/12/2023

Teste esse código:

  dm.fdsetor.open;
  dm.fdsetor.first;

  While not dm.fdsetor.Eof do
  Begin
    Checlistbox1.Items.Add(dm.fdsetorsetores.value);

    Checlistbox1.Checked[Checlistbox1.Items.Count - 1] := dm.fdsetorvalido.value = 1; // acrescentei esta linha

    dm.fdsetor.next;
  end;
GOSTEI 1

Mais Respostas

Alan

Alan

18/12/2023

Teste esse código:

  dm.fdsetor.open;
  dm.fdsetor.first;

  While not dm.fdsetor.Eof do
  Begin
    Checlistbox1.Items.Add(dm.fdsetorsetores.value);

    Checlistbox1.Checked[Checlistbox1.Items.Count - 1] := dm.fdsetorvalido.value = 1; // acrescentei esta linha

    dm.fdsetor.next;
  end;


Opa Natanael,deu certo amigo ,muito obrigado.
GOSTEI 0
Arthur Heinrich

Arthur Heinrich

18/12/2023

Como é dependente da coluna "Valido", que pode ser 0 ou 1, imagino que deve ser checado sempre que for 1.

  dm.fdsetor.open;
  Dm.fdsetor.first;
  while not dm.fdsetor.Eof do
    begin
      Checlistbox1.items.add(dm.fdsetorsetores.value);
      Checlistbox1.Checked[Checlistbox1.Items.Count - 1]:=Boolean(dm.fdvalidosetores.value);
      Dm.fdsetor.next;
      ...


GOSTEI 0
POSTAR