Manipular atributos de objetos da classe TObjectList

[baciotti]

Olá, sou iniciante em Orientação a Objetos e estou tentando fazer um exercicio no Delphi 2010.

Quero criar uma lista de objetos (TobjectList). E quero jogar os atributos dos objetos formatados no componente ListBox.

Exemplo: Classe Produto, atributos Nome e Preco.

Quero adicionar vários objetos (produtos) na lista de objetos e depois criar uma funcao que percorre essa lista e adiciona na listbox formatado, tipo:

Nome do Produto: <nome>: R$ <preco>

Fui claro ?

[rockzilla2109]

Bom, nao sei se entendi direito, mas pra fazer uma array de componentes nem é difícil.

Um exemplo: no form eu coloquei um monte de Timages. E criei uma array de TImages pra que eu pudesse modificar/ler os atributos dos TImages do form usando for. então ficou assim:

const
 MAX_COLS  =  20;    //colunas por linha
 MAX_LINES =   5;    //quantidade de linhas mostradas na tela

var
 Pictures: array [1..MAX_LINES, 1..MAX_COLS] of Timage;

No evento OnCreate do Form eu carreguei os TImage da tela para a matriz Pictures:

 {i,j,k: integer}
 k := 1;
 {carrega todos os Images da tela para a matriz "pictures"}
 for i:=1 to MAX_LINES do
 begin
  for j:=1 to MAX_COLS do
  begin
    pictures[i, j]:= TImage(FindComponent('Img'+ IntToStr(k)));
    inc(k);
  end;
 end;

Para utilizar a array depois:

 for i:=1 to MAX_LINES do
 begin
  for j:=1 to MAX_COLS do
  begin
     Pictures[i,j].Canvas.Pen.Color:= clRed; //exemplo de acesso aos atributos
  end;
 end;