Fórum Usando um ListView na como DBGrid #355389

procedure TForm1.CriarLista;
var
  ListItem: TListItem; // Criamos uma variável para guarda os itens do Listview
begin

   // Limpa o Conteudo Existente no ListView
   ListView1.Clear; 

   // Posicionamos no Primeiro Registro
   Dm.SqUsers.First; 

   while not Dm.SqUsers.Eof do
   begin 

     // Adicionamos um Item ao ListView
     ListItem := ListView1.Items.Add; 

     // Verifica qual o Icone deve ser apresentado
     if Dm.SqUsersnivel.Value = ´A´ then
       ListItem.ImageIndex := 0
     else
       ListItem.ImageIndex := 1; 

   // Adicionamos dados a Coluna Login
   ListItem.Caption := Dm.SqUserslogin.Value; 

   // Adicionamos a Coluna Nome do Usuario
   ListItem.SubItems.Add(Dm.SqUsersnome_usuario.Value); 

   // Adicionamos a coluna Nivel
   ListItem.SubItems.Add(Dm.SqUsersnivel.Value); 

   // Mudamos para o proximo registro
   Dm.SqUsers.Next; 

   end; 

   //Seleciona a primeira linha do ListView se existir dados na tabela
   if Dm.SqUsers.RecordCount > 0 then 
     Listview1.ItemIndex := 0;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  CriarLista;
end;