Fórum Dúvida sobre TList #365171

  TmyClass = class
    _nome : string;
    _idade : integer;
  end;

  TForm1 = class(TForm)
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    _p : TmyClass;
    ListaPessoas : TObjectList;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
  _p : TmyClass;
begin
 if not Assigned(ListaPessoas) then
   ListaPessoas := TObjectList.Create(true); 
 _p := TmyClass.Create;
 _p._nome := ´Pedro Paulo de Souza´;
 _p._idade := 19;
 //Adicionando a pessoa na lista
 ListaPessoas.Add(_p);


 //Lendo a pessoa da lista....
 // TmyClass(ListaPessoas.Items[indice])._nome
 showMessage(TmyClass(ListaPessoas.Items[0])._nome);

 //Caso vc deseje percorrer a lista
 //for _idx :=0 to ListaPessoas.Count-1 do
 //showMessage(TmyClass(ListaPessoas.Items[_idx])._nome);


 //Limpando a lista
 FreeAndNil(ListaPessoas);
end;