Fórum Erro ao inserir um dado do listBox no Combobox...Me ajudem! #428209

07/11/2012

0

Olá,
Estou fazendo um cadastro de cliente, onde os dados lançados no formulario são inseridos num ListBox com o Botão inserir. Porém quando seleciono um item na lista para vizualizar novamente nos campos do formulário ele gera um erro que parece ser do indice, e isso acontece quando quero vizualizar um dos dados no combobox:

Erro gerado:
Project pCadCli.exe raised exception class EstringListError with message list index out of bounds (-1) process stopped.Use step or run to continue.
codigo do botão vizualizar:
if ListView1.ItemIndex >= 0 then
begin
edNome.Text := ListView1.ItemFocused.Caption; //
edEndereco.Text := ListView1.ItemFocused.SubItems[0];
edmaskFone.Text := ListView1.ItemFocused.SubItems[1];
cboxSexo.Items.Strings[cboxSexo.ItemIndex]:= ListView1.ItemFocused.SubItems.ValueFromIndex[2];
RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]:= ListView1.ItemFocused.SubItems[3];
edCidade.Text := ListView1.ItemFocused.SubItems[4];
edCep.Text:= ListView1.ItemFocused.SubItems[5];
cboxEstado.Items.Strings[cboxEstado.ItemIndex]:=ListView1.ItemFocused.SubItems[6];
edRg.Text:=ListView1.ItemFocused.SubItems[7];
edCpf.Text:= ListView1.ItemFocused.SubItems[8];

end
else
ShowMessage('Nenhum item foi selecionado para carregar');
end;
Maristela

Maristela

Responder

Posts

07/11/2012

Joel Rodrigues

Tente depurar o código para ver exatamente onde está o problema, isso facilitará a correção.
Responder

Gostei + 0

07/11/2012

Bruno Leandro

Por exemplo se seu combo cboxSexo estiver vazio ao executar essa linha ira gerar erro

cboxSexo.Items.Strings[cboxSexo.ItemIndex]:= ListView1.ItemFocused.SubItems.ValueFromIndex[2];

se voce quiser adicionar a informação use o add


cboxSexo.Items.Add( ListView1.ItemFocused.SubItems.ValueFromIndex[2] );

se voce ja tem os dados e quer setar o valor retornado voce pode usar assim

cboxSexo.ItemIndex := cboxSexo.Items.IndexOf( ListView1.ItemFocused.SubItems.ValueFromIndex[2] );
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar