Fórum listbox #364812
08/10/2008
0
Eu estou com o seguinte para fazer tenho uma ibquery que me listas historicos incluidos para os devedores de uma empresa como o conteudo em um campo blod, o cliente quer que seja listado todo o conteudo da pesquiza em um so lugar, pensei em jogar tudo em um listbox, mas nao estou conseguindo.
A ibquery é assim :
with IBQHistorico do
begin
close;
sql.Clear;
sql.add(´select * from DB_13 where coddev=´+ DM.IBTbRequeridosCODDEV.Text);
sql.add(´order by data descending´);
open;
end;
depois dele listada tento jogar em um listbox ?
pois o conteudo e grande e ele quer poder usar tipo o scrool do mouse para navegar nos dados.
espero ter explicado direito .
uso DELPHI 7 / FIREBIRD 2.0
Obrigado por enquanto.
Pattarelli
Curtir tópico
+ 0Posts
08/10/2008
Emerson Nascimento
Gostei + 0
08/10/2008
Pattarelli
so que agora esbarrei em outro obstaculo a velocidade com que é inserido os dados e com quebra de linha, mas nao pensei na sua dica vou testar depois eu posto de novo.
Valew....
with IBQHistorico do
begin
close;
sql.Clear;
sql.add(´select * from DB_13 where coddev=´+ DM.IBTbRequeridosCODDEV.Text);
sql.add(´order by data descending´);
open;
while NOT EOF do
begin
ListBox1.Items.Add(FieldByName(´histdesc´).AsString+#9);
Next;
end;
end;
Gostei + 0
09/10/2008
Pattarelli
se alguem tiver uma dica .
obrigado
Gostei + 0
09/10/2008
Pattarelli
https://www.devmedia.com.br/articles/viewcomp.asp?comp=977
e esta é a unica correcao(em destaque) que fiz nele para dar certo ,
ListBox1.OnMeasureItem := ListBox[size=18:e991a9eb90]1[/size:e991a9eb90]MeasureItem;
ListBox1.OnDrawItem := ListBox[size=18:e991a9eb90]1[/size:e991a9eb90]DrawItem;
ListBox1.Style := lbOwnerDrawVariable;
vou encerrar este topico por aqui.
obrigado a todos que me ajudaram .
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)