Discussion :

[citrovix]

Salut à tous,
je vous prix de bien vouloir m'expliquer qu'est-ce que TObjectList et comment l'utiliser ?

merci infiniment !

[ShaiLeTroll]

Comme une TStringList mais au lieu de chaine, tu as des objets, et avant de venir ici tu fais F1, c'est pas difficile comme objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Machin := TTruc.create();
List.Add(Machin);
Bidule := TTruc(List.items[...]).Chose

[Fabrice ROUXEL 1]

Et pour compléter, l'avantage de TObjectList c'est qu'il gère en interne la liberation des objets.

[tourlourou]

avec OwnsObjects=True : c'est très pratique et permet de faire un peu GarbageCollector !

[Bloon]

Une autre utilisation intéressante est de créer une liste avec des objets typés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses Contnrs;
 
type
  TTruc = class
  public
    libelle : string;
    constructor Create(pLibelle : string);
  end;
 
  TListeDeTrucs = class(TObjectList)
  private
    function GetItem(Index: Integer): TTruc;
    procedure SetItem(Index: Integer; const Value: TTruc);
  public
    function Add(AObject: TTruc): Integer;
    procedure Insert(Index: Integer; AObject: TObject);
    // idéalement, redéfinir toutes les méthodes qui renvoient un TObject
    property Items[Index: Integer]: TTruc read GetItem write SetItem; default;
  end;
 
{ TTruc }
 
constructor TTruc.Create(pLibelle: string);
begin
  libelle := pLibelle;
end;
 
{ TListeDeTrucs }
 
function TListeDeTrucs.Add(AObject: TTruc): Integer;
begin
  result := inherited Add(AObject);
end;
 
procedure TListeDeTrucs.Insert(Index: Integer; AObject: TObject);
begin
  inherited Insert(index, AObject);
end;
 
function TListeDeTrucs.GetItem(Index: Integer): TTruc;
begin
  result := TTruc(inherited GetItem(index));
end;
 
procedure TListeDeTrucs.SetItem(Index: Integer; const Value: TTruc);
begin
  inherited setItem(index, value);
end;

Utilisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var
  l : TListeDeTrucs;
  i : integer;
begin
  l := TListeDeTrucs.Create(true);
  l.Add(TTruc.Create('coucou'));
  l.Add(TTruc.Create('titi'));
  l.Add(TTruc.Create('toto'));
  for i := 0 to l.count - 1 do
    showMessage(l.items[i].libelle);
  l.Free;
end;

Bloon

[Lung]

avec OwnsObjects=True : c'est très pratique et permet de faire un peu GarbageCollector !

C'est vrai que c'est pratique que la liste se charge de détruire ses composants.
Je l'utilise souvent.

[Gilbert Geyer]

Salut,

Q : qu'est-ce que TObjectList

R : Comme une TStringList mais au lieu de chaine, tu as des objets