Indexar item no combo pelo texto

Question

Ola amigos,estou com um seguinte problema:tenho um combobox com itens pr� estabelecidos, (estados do brasil) e cada novo registro, um item do combobox � gravado na base de dados.at� ai tudo bem, a ...

Thiago Santana · Answer

Rog�rio n�o seria mais interessante ao inv�s de gravar o nome do item, voc� gravar o c�digo?
Acho que em termos de modelagem seu sistema estaria melhor projetado!
Mas vamos l�:


ComboBox1.Items.IndexOf(�seu texto�);

V� se isso funciona!
Espero ter ajudado

Rog�rio Zek · Answer

Ol� Thiago,Em rela��o a modelagem concordo com voc� amigo, mas o problema � mostrar a informa��o no combo.vamos l�, no combo eu pr� defini os itens com as siglas dos estados para que o usu�rio escolha somente entre aquelas siglas.a, para que o usu�rio n�o entre com um valor diferente  dos que eu pr� defini eu setei a propriedade style do combo para csOwnerDrawFixed, eu acredito que o problema esteja ai, pois com a propriedade setada para csDropDown funciona normalmente com o c�digo que voc� postou acima.ainda n�o consegue resolver o problema.Grato e at� mais....

Alexsandro · Answer

Ol� Rog�rio, n�o sei se voc� j� est� usando mas se n�o, seria melhor usar o componente TDBCombobox . que permite ser usado com datasource...

Rog�rio Zek · Answer

Ol� Alexsandro, sim j� usei o DBcombo tamb�m, mas o problema persiste quando seto a propriedade style para csOwnerDrawFixed, o problema esta ai, e eu seto esta propriedade para o usu�rio n�o entrar com valores diferentes aos que est�o pr� definidos nos itens do DBcombo.

Valeu Alexsandro, mas o problema persiste, rsrs.

Alexsandro · Answer

ok...ent�o eu faria assim...

no evento onshow do form, colocaria o seguinte c�digo:

if suatabelaSeucampo.value = 'valor' then
begin
combobox.text := suatabelaSeucampo.value;
end;

Exemplo:

imagine que tenha uma tabela de aluno e nessa tabela tenha o campo situacao.

agora no formul�rio no evento onshow teria o c�digo:

if tabelasituacao.value = 'Aprovado' then
begin
combobox1.text := tabelasituacao.value;
end
else if tabelasituacao.value = 'Reavali��o' then
begin
combobox1.text := tabelasituacao.value;
end
else
begin
combobox1.text := tabelasituacao.value;
end;

Ricardo Araujo · Answer

Colega n�o sei se voc� conseguiu resolver seu caso, mesmo assim estou disponibilizando a solu��o.

primeiro criar uma vari�vel de retorno da fun��o com combobox.

var
Num : integer;
begin

//agora vamos ao c�digo abaixo, para receber os dados que estar� vindo do banco de dados que seria o campo estado.

Num := ComboBox1.Items.IndexOf('PE') ; // neste campo aonde esta escrito (PE) seria o coluna com banco de dados.
ComboBox1.ItemIndex := Num;

end;

caro amigo espero ter ajudando, qualquer coisa segue email: rbbarreto@hotmail.com

F�rum Indexar item no combo pelo texto #518405