2 Coluna no TCombobox

Question

Pesoal � o seguinte eu estou fazendo uma pesquiza em um Combobox ele carrega fil� so q tenho um problema quendo eu vou carregar a as duas colunas ele carrela as duas colunas mas quando vou selecionar ...

Danielrsanches · Answer

neste caso, vc poderia fazer um tratamento da string para retirar apenas o que te interessa para fazer a pesquisa. ex:

o texto selecionado no combo box � o seguinte:

09543 - JOSE DA SILVA SANTOS

sendo 09543 o c�digo e JOSE DA SILVA SANTOS o nome...

agora, se o primeiro campo n�o for devidamente formatado, sendo de um tamanho indeterminado, vc utiliza um separador para retirar o que deseja, sendo o separador no caso acima o �-� (hifem) ...

09543 [color=red:a5373f0b7e]-[/color:a5373f0b7e] JOSE DA SILVA SANTOS

para retirar o texto que precisa (tudo antes do h�fem por exemplo) fa�a um for ...

[code]
for I:=1 to Lenght(ComboBox1.Text) do
begin
if Copy(ComboBox1.Text,I,1) <> �-� then
vPesq:= vPesq + Copy(ComboBox1.Text,I,1)
else
break;
end;

assim, vc colocou na vari�vel vPesq, tudo que vem antes do h�fen ...

se n�o for o que procura, post novamente ...

abra�os !!!

Tchucky · Answer

[quote:e3d6744ff0]for I:=1 to Lenght(ComboBox1.Text) dobeginif Copy(ComboBox1.Text,I,1) <> �-� thenvPesq:= vPesq + Copy(ComboBox1.Text,I,1)elsebreak;end; [/quote:e3d6744ff0]naum entendi como funciona essa fun�ao e como devo colocar em meu form de consultae essas variaveis I, VPesq qual o formato delas... pq no meu Combobox vai receber numero e letras...

Alanporto · Answer

Pelo que eu entendi, voc� quer concatenar os campos na combobox e, na hora de selecionar, usar um s� dos campos para filtro. Se for isso o c�digo do danielrsanches est� correto. Quanto �s vari�veis, o i � s� a vari�vel de controle do for que est� correndo a string da combobox caracter por caracter (ent�o � Integer). vPesq est� trazendo todo o conte�do do Text da combobox que vem antes do h�fen (String). Se sua pesquisa for feita em um bot�o, por exemplo, � s� colocar o c�digo antes da pesquisa e usar o vPesq para filtrar por c�digo. :)

Tchucky · Answer

ta como eu desclaro Lenght eu nunca avia usado essa variavel.......

Tchucky · Answer

a estava errada era [code:1:2cea9dc84b]Length[/code:1:2cea9dc84b]...

Tchucky · Answer

Continua do mesmo jeito a consulta... continnua aparecendo os dois item na sele�ao tipo 09543 - JOSE DA SILVA SANTOS sendo q na sele�ao ele so pode aparecer 09543...

Alanporto · Answer

na sele��o onde? na ComboBox? Por que acabei de testar o c�digo aqui e deu certo.

Voc� quer que o c�digo fique sozinho no Text da ComboBox depois de selecionado um item, � isso?

Se poss�vel, poste o c�digo que usa a sele��o do ComboBox.

Tchucky · Answer

o codigo esta no topo do topico mas vou colocar ele d novo aqui

begin
     Close;
     SQL.Text := �SELECT NUMERO_DOC,TIPO_MOV FROM MOVIMENTO� +#13+
                 �WHERE (�
                 +13+� (MOVIMENTO.TIPO_MOV = �+IntToStr(i_Compra_Venda)+�)�
                 +13+� )�;
    Open;
    if not IsEmpty then
     while not Eof do
     begin
      cb_numero_doc.Items.Add(Fields[0].AsString+� - �+Fields[1].AsString);
      Next;
     end;
    Close;
    end;

Emerson Nascimento · Answer

voc� n�o pode usar um DBLookupComboBox ?...

Alanporto · Answer

N�o esse.

Esse vai preencher o ComboBox com
�NUMERO_DOC - TIPO_MOV� toda vez mesmo...
Todos os itens da ComboBox ficar�o nesse formato...

Mas depois da ComboBox preenchida, qual o procedimento?
Como ele utiliza o item selecionado na ComboBox?
Se for em um where (por exemplo:

SELECT CAMPO FROM MOVIMENTO WHERE NUMERO_DOC = :NUM

) funciona perfeitamente, basta passar o vPesq como par�metro.

Agora se voc� est� querendo que apare�a s� o c�digo no Text quando d� OnCloseUp na ComboBox, sinto dizer que aqui testei e n�o funcionou, porque ele deve sobrescrever.

Danielrsanches · Answer

seu c�digo teria que ficar mais ou menos assim:

procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
vPesq: String;
begin
     vPesq:= ��;
     for I:=1 to Length(ComboBox1.Text) do 
     begin 
          if Copy(ComboBox1.Text,I,1) <> �-� then 
               vPesq:= vPesq + Copy(ComboBox1.Text,I,1) 
          else 
               break; 
     end;

     //aki vc faz a pesquisa utilizando a vari�vel vPesq. Ex:
     query1.SQL.Text:= �select * from TABELA where CAMPO = :pCampo�;
     query1.ParamByName(�pCampo�).AsString:= vPesq;
     query1.Open;
end;

qq coisa � s� postar novamente ...

abra�os !!!

F�rum 2 Coluna no TCombobox #373002