Ir ao conteúdo
  • Cadastre-se
Seingalt

Dados da Tabela na ListView

Recommended Posts

Olá pessoal , tudo jóia ?

Eu estou tentando carregar os dados da Tabela para o ListView, estou fazendo assim :

Código:

procedure TformEstoque.FormShow(Sender:TObject)

var

lista : TlistItem;

begin

lista := ListView.Items.Add;

dm.tabela_estoque.open;

dm.tabela_estoque.first;

while not ( dm.tabela_estoque.eof) do

begin

lista.caption:=dm.tabela_estoque.fieldbyname('Descricao').AsString;

lista.subitems.add(dm.tabela_estoque.fieldbyname('quantidade').AsString);

lista.subitems.add(dm.tabela_estoque.fieldbyname('preco').AsString);

dm.tabela_estoque.next;

end;

end;

Quando o form carrega , ele executa o codigo mas carrega apenas uma linha ou seja como se todos fossem executados na mesma linha do listview.

Fica um unico item no listview, na primeira linha .

Ele não passa para a linha seguinte do ListView e assim por diante .

Eu procurei uma forma de tentar ir para a proxima linha do ListView mas não estou tendo sucesso !

Alguém pode me ajudar ??

Compartilhar este post


Link para o post
Compartilhar em outros sites

No começo, não entendi sua duvida, mas percebi que no condigo:

lista := ListView.Items.Add; 

vem antes do loop, tente colocar no loop

seu codigo fica ssim

procedure TformEstoque.FormShow(Sender:TObject) 
var lista : TlistItem;
begin
dm.tabela_estoque.open;
dm.tabela_estoque.first;

while not ( dm.tabela_estoque.eof) do
begin
lista := ListView.Items.Add;

lista.caption:=dm.tabela_estoque.fieldbyname('Desc ricao').AsString;
lista.subitems.add(dm.tabela_estoque.fieldbyname(' quantidade').AsString);
lista.subitems.add(dm.tabela_estoque.fieldbyname(' preco').AsString);


dm.tabela_estoque.next;

end;
end;

Espero que ajude

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×