ListView em Delphi: Como ler e gravar registro no ListView

Ol� galera, nesta Quick Tips mostrarei como podemos ler e escrever texto em um ListView de maneira pr�tica e r�pida em Delphi.

Para isso vamos criar um Form (salve o mesmo como uFrmPrincipal) e nele crie:

tr�s TLabeledEdit (EdtCodigo, EdtDescricao, EdtValor);
tr�s TBitBtn (BtnGravarRegistro, BtnExcluirRegistro, BtnCarregarRegistro);
um TListView (ListViewExemplo).

Vamos configurar agora as propriedades do ListViewExemplo. Adicione tr�s Colunas (C�digo, Descriç�o, Valor):

Propriedade - ViewStyleM = vsReport;
Propriedade - SortType = stText;

ListView em Delphi

Veja o exemplo conclu�do na Figura 1:

Figura 1. Exemplo constru�do

A implementaç�o da Unit ficar� como no c�digo a seguir:

unit uFrmPrincipal;
 interface
  
 uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons; 

 type 

 TFrmPrincipal = class(TForm)
     EdtCodigo: TLabeledEdit;
     EdtDescricao: TLabeledEdit;
     EdtValor: TLabeledEdit;
     Panel1: TPanel;
     ListViewExemplo: TListView;
     BtnGravarRegistro: TBitBtn;
     BtnExcluirRegistro: TBitBtn;
     BtnCarregarRegistro: TBitBtn;
     procedure BtnGravarRegistroClick(Sender: TObject);
     procedure BtnExcluirRegistroClick(Sender: TObject);
     procedure BtnCarregarRegistroClick(Sender: TObject);
   private
     { Private declarations }
 public
     { Public declarations }
 end; 

 var
     FrmPrincipal: TFrmPrincipal; 

 implementation
 {$R *.dfm}
 { Gravar Registro no ListView }
 procedure TFrmPrincipal.BtnGravarRegistroClick(Sender: TObject);
 Var
     Item: TListItem;
 begin
     Item := ListViewExemplo.Items.Add;
     Item.Caption := EdtCodigo.Text;
     Item.SubItems.Add(EdtDescricao.Text);
     Item.SubItems.Add(EdtValor.Text);
     EdtCodigo.Clear;
     EdtDescricao.Clear;
     EdtValor.Clear;
 end; 

 { Excluir Registro no ListView }
 procedure TFrmPrincipal.BtnExcluirRegistroClick(Sender: TObject);
 begin
     if ListViewExemplo.ItemIndex >= 0 then
         ListViewExemplo.DeleteSelected
     else
         ShowMessage('Selecione um item para excluir');
 end; 

 { Carregar Registro do ListView}
 procedure TFrmPrincipal.BtnCarregarRegistroClick(Sender: TObject);
 begin
     if ListViewExemplo.ItemIndex >= 0 then
     begin
         EdtCodigo.Text := ListViewExemplo.ItemFocused.Caption;
         EdtDescricao.Text := ListViewExemplo.ItemFocused.SubItems[0];
         EdtValor.Text := ListViewExemplo.ItemFocused.SubItems[1];
     end
     else
     ShowMessage('Nenhum item foi selecionado para carregar');
 end; 

 end.

Fico por aqui ate � pr�xima Quick Tips.

Links �teis

Guia de Refer�ncia Delphi:
Neste Guia de Refer�ncia voc� encontrar� o conte�do que precisa para iniciar seus estudos em Delphi, uma plataforma para desenvolvimento de aplicativos completa, principalmente para soluç�es desktop e mobile.
�ltimas atualizaç�es sobre Delphi:
Fique ligado em todos os conte�dos recentes sobre Delphi em nosso portal, listamos os �ltimos artigos, devcasts, exemplos, documentaç�es e cursos sobre desenvolvimento com Delphi.

Saiba mais sobre ListView ;)

ListView: Listagem de dados din�mica em aplicaç�es mobile:
Neste artigo veremos como manipular dinamicamente o componente ListView, exibindo dados via linha de c�digo.
Personalizaç�o do ListView em aplicativos mobile:
Neste artigo vamos ver como personalizar o componente ListView via c�digo permitindo que efeitos avançados sejam obtidos.
Mobile no Delphi: Mudando a visualizaç�o dos dados no ListView:
Veja neste artigo como configurar a propriedade ItemAppearance para modificar a visualizaç�o dos dados em aplicaç�es mobile no Delphi.
Componente Listview no Android Studio:
Veja nesse artigo como criar um aplicativo em Android trabalhando com listas atrav�s do componente ListView com menus, eventos e chamadas de novas janelas pelo ambiente de desenvolvimento Android Studio.

Ler e Gravar: ListView em Delphi

Veja nesta quick como ler e gravar registro no ListView em Delphi.

ListView em Delphi

Links �teis

Artigos relacionados