ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

while ajuda

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
jpaulo102
Novato
Novato


Registrado: Terça-Feira, 22 de Agosto de 2017
Mensagens: 17

MensagemEnviada: Qua Set 20, 2017 1:10 pm    Assunto: while ajuda Responder com Citação

Boa tarde! Algúem poderia me ajudar?

Eu quero fazer um loop que busque em um combobox a cidade escolhida e me retorne um número, ao invés do nome dela.

testei com ifs e funciona! Mas fazer 27 (Qntd. de Estados do Brasil) não é o melhor e mais prático para se fazer.

Já tentei de muitas formas, usando recordCount, usando uma comparação entre o campo escolhido, com o campo do meu banco. Nada funcionou

Meu último código:

Se eu coloco o next, ele cai em um loop infinito.

Código:

  dm.qry_Estados.Active := False;
     dm.qry_Estados.SQL.Clear;
     dm.qry_Estados.SQL.Add('SELECT IDESTADO, EST_NOME FROM ESTADOS');
     dm.qry_Estados.Active:= true;

     i:=0;
     while  dm.qry_EstadosEST_NOME.AsString <> cmbEstado.text do
     begin
         i:= i + 1;
         next;
     end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
leo_cj
Colaborador
Colaborador


Registrado: Sábado, 26 de Março de 2011
Mensagens: 1335

MensagemEnviada: Qua Set 20, 2017 1:51 pm    Assunto: Responder com Citação

Você pode resolver esse problema de 3 maneiras.

1ª - Utilizar um DBComboBox para mostrar os estados, assim você pode pegar o ID do estado selecionado.
2ª - Talvez a propriedade ItemIndex do ComboBox resolva o seu problema
3ª - Você pode também utilizar a função Items.AddObject do ComboBox para inserir o Texto e o ID de cada estado
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB