Fórum List index out of bounds (4) #415275
11/04/2012
0
E fiz um código que o botão só ativa, caso todos os 4 estejam com pelo menos 1 item de cada selecionado:
Mesmo assim o botão não ativou, e gera-me este erro antes mesmo do programa abrir!
procedure TForm2.FormCreate(Sender: TObject);
begin
sBitBtn1.Enabled := False;
//Se selecionar de cada lista um item, ative o botao
if (sListBox1.Selected[1] = True)or(sListBox1.Selected[2] = True)or(sListBox1.Selected[3] = True)or(sListBox1.Selected[4] = True)and(sListBox2.Selected[1] = True)or(sListBox2.Selected[2] = True)or(sListBox2.Selected[3] = True)and(sListBox3.Selected[1] = True)or(sListBox3.Selected[2] = True)or(sListBox3.Selected[3] = True)or(sListBox3.Selected[4] = True)and(sListBox4.Selected[1] = True)or(sListBox4.Selected[2] = True) then
begin
sBitBtn1.Enabled := True;
end;
end;
Jhonnatas F
Curtir tópico
+ 0Posts
11/04/2012
Jhonnatas F
Quer dizer que o classificador [4] não existe, por tem 4 itens dentro de uma lista, eu comecei o index com [1] e o correto de inicio é com [0] e só vai até [3] e não [4].
rsrs, mas agora o problema é que o botão não quer ativar! O que há de errado?
Gostei + 0
11/04/2012
Bruno Leandro
procedure TForm2.FormCreate(Sender: TObject);
begin
sBitBtn1.Enabled := False;
//Se selecionar de cada lista um item, ative o botao
if ( sListBox1.ItemIndex > -1 ) and ( sListBox2.ItemIndex > -1 ) and ( sListBox3.ItemIndex > -1 ) and ( sListBox4.ItemIndex > -1 ) then
begin
sBitBtn1.Enabled := True;
end;
end;
Gostei + 0
11/04/2012
Joel Rodrigues
sBitBtn1.Enabled := (( sListBox1.ItemIndex > -1 ) and ( sListBox2.ItemIndex > -1 ) and ( sListBox3.ItemIndex > -1 ) and ( sListBox4.ItemIndex > -1));
Boa sorte.
Gostei + 0
11/04/2012
Jhonnatas F
Gostei + 0
11/04/2012
Jhonnatas F
http://i42.tinypic.com/4lhwg7.jpg
Gostei + 0
11/04/2012
Bruno Leandro
Gostei + 0
12/04/2012
Joel Rodrigues
Boa sorte.
Gostei + 0
12/04/2012
Jhonnatas F
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)