Query E Combo

[Guest - Marcel -]

No evento onclick do botao2 quero adicionar o resultado do que a query me traz:

procedure TForm1.Button2Click(Sender: TObject);

begin

with query2 do

begin

combobox4.Items.Add(query2.??????);

end

end;

query2=select nome_depto from depto

[Nosdaj]

tudo bem acho que isto ai vai servir

qyRegiao.cancel; // cancela qualquer operação da query
qyRegiao.close; // fecha a query
qyRegiao.sql.clear; // limpa o sql da query
qyRegiao.sql.add('SELECT NMREGIAO FROM TBUF,TBREGIAO');
qyRegiao.sql.add('WHERE IDREGIAO =('''+uma variavel qualquer+''')');
qyRegiao.open;
cbxRegiao.Items.Add(qyRegiao.FieldByName('NMREGIAO').AsString);

se tiver mais alguma duvida posta ai, até mais.