{"id":941,"date":"2024-12-23T11:46:41","date_gmt":"2024-12-23T14:46:41","guid":{"rendered":"https:\/\/adrianosantostreina.com.br\/blog\/?p=941"},"modified":"2025-01-13T11:00:58","modified_gmt":"2025-01-13T14:00:58","slug":"entendendo-o-uso-de-tlist-e-tobjectlist","status":"publish","type":"post","link":"https:\/\/adrianosantostreina.com.br\/blog\/entendendo-o-uso-de-tlist-e-tobjectlist\/","title":{"rendered":"Entendendo o uso de TList e TObjectList"},"content":{"rendered":"\n

No universo do desenvolvimento com Delphi, saber escolher as ferramentas certas pode economizar horas de trabalho e evitar problemas futuros no c\u00f3digo. Dois elementos amplamente utilizados para manipular cole\u00e7\u00f5es de objetos e dados s\u00e3o o TList<\/code> e o TObjectList<\/code>. Apesar de semelhantes em muitos aspectos, eles t\u00eam caracter\u00edsticas e usos bem distintos, e saber diferenci\u00e1-los \u00e9 essencial para um c\u00f3digo mais limpo, seguro e eficiente.<\/p>\n\n\n\n\n\n\n\n

Se voc\u00ea j\u00e1 se perguntou qual \u00e9 a diferen\u00e7a entre TList<\/code> e TObjectList<\/code>, quando usar um e outro, ou at\u00e9 mesmo quais s\u00e3o as vantagens de cada um, este artigo \u00e9 para voc\u00ea! Vamos explorar suas principais funcionalidades, entender os cen\u00e1rios ideais de uso e mergulhar nas boas pr\u00e1ticas que podem tornar seu c\u00f3digo ainda melhor.<\/p>\n\n\n\n

Diferen\u00e7as Entre TList<\/code> e TObjectList<\/code><\/h3>\n\n\n\n
Caracter\u00edstica<\/th>TList<\/code><\/th>TObjectList<\/code><\/th><\/tr><\/thead>
Gerenciamento de Mem\u00f3ria<\/td>Manual: voc\u00ea precisa liberar os objetos manualmente<\/td>Autom\u00e1tico (se configurado para True<\/code>)<\/td><\/tr>
Tipagem<\/td>Permite qualquer tipo gen\u00e9rico<\/td>Espec\u00edfico para objetos<\/td><\/tr>
Uso Principal<\/td>Dados simples e n\u00e3o gerenciados<\/td>Cole\u00e7\u00f5es de objetos<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n

<\/p>\n\n\n\n

O que \u00e9 TList?<\/strong><\/p>\n\n\n\n

O TList<\/code> \u00e9 uma classe gen\u00e9rica introduzida no Delphi para oferecer uma estrutura de dados flex\u00edvel e vers\u00e1til. Ele funciona como uma lista din\u00e2mica que pode armazenar qualquer tipo de dado gen\u00e9rico, desde n\u00fameros at\u00e9 objetos complexos. Sua principal vantagem est\u00e1 na simplicidade e na capacidade de manipular dados de forma eficiente em mem\u00f3ria.<\/p>\n\n\n\n

A estrutura do TList<\/code> \u00e9 baseada em um array din\u00e2mico internamente, mas oferece m\u00e9todos convenientes que simplificam opera\u00e7\u00f5es comuns como adicionar, remover e buscar elementos.<\/p>\n\n\n\n

Principais M\u00e9todos e Propriedades do TList<\/strong><\/p>\n\n\n\n

1. Add<\/strong>
Adiciona um elemento \u00e0 Lista.<\/p>\n\n\n\n

    <\/ol>\n\n\n\n
    Lista.Add(42); \/\/ Adiciona o n\u00famero 42 na lista\n<\/pre><\/div>\n\n\n\n
    2. Insert<\/strong>
    Insere um elemento em uma posi\u00e7\u00e3o espec\u00edfica<\/p>\n\n\n\n
    Lista.Insert(0, 15); \/\/ Insere o n\u00famero 15 na primeira posi\u00e7\u00e3o\n<\/pre><\/div>\n\n\n\n
    3. Delete
    Remove o elemento de uma posi\u00e7\u00e3o espec\u00edfica.<\/p>\n\n\n\n
    Lista.Delete(0); \/\/ Remove o elemento na posi\u00e7\u00e3o 0\n<\/pre><\/div>\n\n\n\n
    4. Remove<\/p>\n\n\n\n
    Remove a primeira ocorr\u00eancia de um elemento.<\/p>\n\n\n\n
    Lista.Remove(42); \/\/ Remove o n\u00famero 42, se encontrado\n<\/pre><\/div>\n\n\n\n
    5. Clear
    Esvazia completamente a lista.<\/p>\n\n\n\n
    Lista.Clear; \/\/ Remove todos os elementos\n<\/pre><\/div>\n\n\n\n
    6. Contais<\/p>\n\n\n\n
    Verifica se um elemento est\u00e1 na lista.<\/p>\n\n\n\n
    if Lista.Contains(10) then\n  Writeln('O n\u00famero 10 est\u00e1 na lista');\n<\/pre><\/div>\n\n\n\n
    7. Count<\/p>\n\n\n\n
    Indica o n\u00famero de elementos na lista.<\/p>\n\n\n\n
    Writeln(Lista.Count); \/\/ Exibe a quantidade de itens\n<\/pre><\/div>\n\n\n\n
    Como Trabalhar com TList<\/h3>\n\n\n\n
    Declarando e Criando um TList<\/h4>\n\n\n\n
    A declara\u00e7\u00e3o de um TList<\/code> exige que voc\u00ea defina o tipo de dado que ele ir\u00e1 armazenar. Isso torna o TList<\/code> extremamente vers\u00e1til e seguro, j\u00e1 que evita convers\u00f5es desnecess\u00e1rias ou erros de tipo.<\/p>\n\n\n\n
    Exemplo Simples: TList de Inteiros<\/strong><\/p>\n\n\n\n
    uses\n  System.Generics.Collections;\n\nvar\n  Lista: TList<Integer>;\nbegin\n  Lista := TList<Integer>.Create; \/\/ Criando uma lista para inteiros\n  try\n    Lista.Add(5);   \/\/ Adiciona o n\u00famero 5\n    Lista.Add(10);  \/\/ Adiciona o n\u00famero 10\n    Lista.Add(15);  \/\/ Adiciona o n\u00famero 15\n\n    Writeln('Total de itens: ', Lista.Count); \/\/ Sa\u00edda: 3\n\n    \/\/ Iterando pelos itens da lista\n    for var Item in Lista do\n      Writeln('Item: ', Item);\n  finally\n    Lista.Free; \/\/ Liberando a mem\u00f3ria usada pela lista\n  end;\nend;\n<\/pre><\/div>\n\n\n\n
    Trabalhando com Objetos no TList<\/h4>\n\n\n\n
    Embora o TList<\/code> possa armazenar objetos, ele n\u00e3o gerencia automaticamente sua destrui\u00e7\u00e3o. Isso significa que voc\u00ea precisa liberar cada objeto manualmente, o que aumenta o risco de vazamentos de mem\u00f3ria se n\u00e3o for feito corretamente.<\/p>\n\n\n\n
    Exemplo: Gerenciando Objetos com TList<\/strong><\/p>\n\n\n\n
    uses\n  System.Generics.Collections;\n\ntype\n  TProduto = class\n    Nome: string;\n    Preco: Double;\n  end;\n\nvar\n  Produtos: TList<TProduto>;\n  Produto: TProduto;\nbegin\n  Produtos := TList<TProduto>.Create;\n  try\n    \/\/ Adicionando produtos\n    Produto := TProduto.Create;\n    Produto.Nome := 'Notebook';\n    Produto.Preco := 4500.00;\n    Produtos.Add(Produto);\n\n    Produto := TProduto.Create;\n    Produto.Nome := 'Smartphone';\n    Produto.Preco := 2000.00;\n    Produtos.Add(Produto);\n\n    \/\/ Iterando pelos produtos\n    for Produto in Produtos do\n      Writeln(Produto.Nome, ': R$', Produto.Preco:0:2);\n\n    \/\/ Libera\u00e7\u00e3o manual dos objetos\n    for Produto in Produtos do\n      Produto.Free;\n    Produtos.Clear; \/\/ Esvaziando a lista ap\u00f3s liberar os objetos\n  finally\n    Produtos.Free; \/\/ Libera a mem\u00f3ria do TList\n  end;\nend;\n<\/pre><\/div>\n\n\n\n
    Vantagens do TList<\/p>\n\n\n\n
      \n
    1. Flexibilidade<\/strong>: Pode armazenar qualquer tipo de dado, de tipos primitivos a objetos complexos.<\/li>\n\n\n\n
    2. Facilidade de Uso<\/strong>: Possui m\u00e9todos simples para manipular os dados.<\/li>\n\n\n\n
    3. Desempenho<\/strong>: Internamente otimizado para opera\u00e7\u00f5es r\u00e1pidas com grandes quantidades de dados.<\/li>\n\n\n\n
    4. Controle Total<\/strong>: D\u00e1 ao desenvolvedor total controle sobre os dados, incluindo a cria\u00e7\u00e3o e destrui\u00e7\u00e3o de objetos.<\/li>\n<\/ol>\n\n\n\n
      \n\n\n\n
      Desvantagens do TList<\/h3>\n\n\n\n
      Sem Gerenciamento de Tipos Espec\u00edficos<\/strong>: Apesar de ser gen\u00e9rico, n\u00e3o oferece especializa\u00e7\u00f5es para cen\u00e1rios mais complexos como o TObjectList<\/code>.<\/p>\n\n\n\n
      Gerenciamento Manual de Mem\u00f3ria<\/strong>: Ao usar objetos, a responsabilidade de liberar mem\u00f3ria \u00e9 do desenvolvedor, o que pode levar a vazamentos de mem\u00f3ria se n\u00e3o for bem feito.<\/p>\n\n\n\n
      Introdu\u00e7\u00e3o ao TObjectList<\/h4>\n\n\n\n
      O TObjectList<\/code> \u00e9 uma classe projetada especificamente para armazenar cole\u00e7\u00f5es de objetos no Delphi, oferecendo uma funcionalidade cr\u00edtica: o gerenciamento autom\u00e1tico da destrui\u00e7\u00e3o de seus elementos. Quando configurado para OwnsObjects = True<\/code>, o TObjectList<\/code> assume a responsabilidade de liberar os objetos quando a lista \u00e9 destru\u00edda ou quando itens s\u00e3o removidos. Isso o torna uma escolha segura e eficiente para cen\u00e1rios que exigem manipula\u00e7\u00e3o de cole\u00e7\u00f5es de objetos.<\/p>\n\n\n\n
      Principais M\u00e9todos e Propriedades do TObjectList<\/h3>\n\n\n\n
      O TObjectList<\/code> herda grande parte de suas funcionalidades do TList<\/code>, mas adiciona mecanismos pr\u00f3prios para lidar com objetos. Vamos explorar suas principais caracter\u00edsticas:<\/p>\n\n\n\n
      1. OwnsObjects<\/code><\/strong><\/h4>\n\n\n\n
      Indica se os objetos na lista devem ser gerenciados automaticamente. Quando configurado para True<\/code>, o TObjectList<\/code> libera os objetos automaticamente ao ser destru\u00eddo ou ao remover itens.<\/p>\n\n\n\n
      Lista.OwnsObjects := True; \/\/ Gerenciamento autom\u00e1tico de objetos\n<\/pre><\/div>\n\n\n\n
      2. M\u00e9todos Herdados do TList<\/code><\/strong><\/h4>\n\n\n\n
      Como o TObjectList<\/code> \u00e9 uma especializa\u00e7\u00e3o do TList<\/code>, ele compartilha os m\u00e9todos como Add<\/code>, Remove<\/code>, Insert<\/code>, Delete<\/code> e Clear<\/code>, com a vantagem adicional de tratar automaticamente os objetos em muitos casos.<\/p>\n\n\n\n
      3. Extract<\/code><\/strong><\/h4>\n\n\n\n
      Remove um objeto da lista sem destru\u00ed-lo, devolvendo o controle de sua mem\u00f3ria ao desenvolvedor.<\/p>\n\n\n\n
      Produto := Lista.Extract(Lista[0]); \/\/ Remove o primeiro objeto sem destru\u00ed-lo\n<\/pre><\/div>\n\n\n\n
      Trabalhando com TObjectList<\/h3>\n\n\n\n
      Exemplo B\u00e1sico: Adicionando e Removendo Objetos<\/h4>\n\n\n\n
      O TObjectList<\/code> \u00e9 ideal quando voc\u00ea precisa armazenar objetos e n\u00e3o quer se preocupar com sua libera\u00e7\u00e3o manual.<\/p>\n\n\n\n
      uses\n  System.Generics.Collections;\n\ntype\n  TProduto = class\n    Nome: string;\n    Preco: Double;\n  end;\n\nvar\n  Produtos: TObjectList<TProduto>;\n  Produto: TProduto;\nbegin\n  \/\/ Criando a lista com gerenciamento autom\u00e1tico\n  Produtos := TObjectList<TProduto>.Create(True);\n  try\n    \/\/ Adicionando produtos\n    Produto := TProduto.Create;\n    Produto.Nome := 'Monitor';\n    Produto.Preco := 1500.00;\n    Produtos.Add(Produto);\n\n    Produto := TProduto.Create;\n    Produto.Nome := 'Teclado Mec\u00e2nico';\n    Produto.Preco := 350.00;\n    Produtos.Add(Produto);\n\n    \/\/ Exibindo os produtos\n    for Produto in Produtos do\n      Writeln(Produto.Nome, ': R$', Produto.Preco:0:2);\n\n    \/\/ N\u00e3o h\u00e1 necessidade de liberar objetos manualmente\n  finally\n    Produtos.Free; \/\/ Libera todos os objetos e a lista\n  end;\nend;\n<\/pre><\/div>\n\n\n\n
      Exemplo Avan\u00e7ado: Usando Extract<\/h4>\n\n\n\n
      Se voc\u00ea deseja remover um objeto sem destru\u00ed-lo (por exemplo, para mov\u00ea-lo para outra lista), o m\u00e9todo Extract<\/code> \u00e9 a solu\u00e7\u00e3o ideal.<\/p>\n\n\n\n
      var\n  Produto: TProduto;\nbegin\n  Produto := Produtos.Extract(Produtos[0]); \/\/ Remove o primeiro item sem destru\u00ed-lo\n  try\n    Writeln('Produto extra\u00eddo: ', Produto.Nome);\n  finally\n    Produto.Free; \/\/ Libera\u00e7\u00e3o manual do objeto extra\u00eddo\n  end;\nend;\n<\/pre><\/div>\n\n\n\n
      Lembrando as diferen\u00e7as…<\/p>\n\n\n\n
      Diferen\u00e7as e Vantagens em Rela\u00e7\u00e3o ao TList<\/h3>\n\n\n\n
      Caracter\u00edstica<\/th>TList<\/code><\/th>TObjectList<\/code><\/th><\/tr><\/thead>
      Gerenciamento de Objetos<\/strong><\/td>Manual<\/td>Autom\u00e1tico (se OwnsObjects = True<\/code>)<\/td><\/tr>
      M\u00e9todo Extract<\/strong><\/td>Dispon\u00edvel, mas sem especializa\u00e7\u00e3o<\/td>Especializado para evitar destrui\u00e7\u00e3o<\/td><\/tr>
      Performance<\/strong><\/td>Levemente superior devido \u00e0 simplicidade<\/td>Menor, devido ao gerenciamento extra<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n
      Quando Usar o TObjectList?<\/h3>\n\n\n\n