Transtyper element d'1 variable pointant sur TList?

Version imprimable

Salut, j'ai réussi à transtyper mais je pense qu'il y a plus simple.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
program Vecteur;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Classes,
  Vector in 'Vector.pas';
 
var
  liste: TList;
  i: integer;
  objet: TObject;
begin
  liste := TList.Create;
  try
    liste.Add( TO1.Create );
    liste.Add( TO2.Create );
 
    objet := liste.Items[0]; // N'y a t'il pas plus simple?
    if ( objet is TO1) then
      (objet as TO1).JeTravaillePour01;
  finally
    liste.Clear; //Suffisant pour supprimer tous les objets de la liste?
  end;
end.

J'aimerais aussi savoir si le " liste.clear " est bien suffisant pour libérer les objets de la mémoire?

merci d'avance !

25/02/2003, 18h35
nobs
salut,

dans le desordre
non pas de libération de la mémoire pour le Tlist.clear ( logique puisqu'il s'agit d'une liste de pointeur, pas de Tobject, donc tu n'as pas forcément de methode free )

et sinon, neh, mise à part faire le cast directement
Code:

1 2 3 4 Tobject(liste.Items[0]); // ou (liste.Items[0] as Tobject);
, y'a pas plus simple

par contre t'as TobjectList qu'est bien mieux si il s'agit d'une liste d'objet...
25/02/2003, 22h53
Nono40

Re: Transtyper un element d'une variable pointant sur un TLi

Citation:

Envoyé par Cornell

J'aimerais aussi savoir si le " liste.clear " est bien suffisant pour libérer les objets de la mémoire?

Non, ceci ne libère pas les éléments. Il faut le faire AVANT. Ensuite, Clear ne fait que vider la liste mais ne détruit pas l'objet. Dans ton cas c'est Free qu'il faut appeler ( toujours après avoir détruit les objets ).