Discussion :

[helmis]

Code :

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

1
2
3
4
5
6
7
8
9
procedure TfmPrinc.Button2Click(Sender: TObject);
var
 T : TObject;
begin
  T := TList.Create;
  ShowMessage('Test est de classe ' +T.ClassName);
  T.Destroy;
 
end;

Comment on a pu créer la var "T" en tant que Liste(Tliste) alors qu'elle est déclarée comme Tobjet ?

[Kaféine]

TList descend de TObject: Polymorphisme

[helmis]

merci

Je voudrai savoir quelle sera l'utilité de ne pas déclarer Tlist Directement

Pourquoi procéder avec Tobject ?

[Kaféine]

Je voudrai savoir quelle sera l'utilité de ne pas déclarer Tlist Directement

Dans ce cas mieux vaux declarer une variable TList directement.

Dans le cas d'une fonction par exemple qui accepte comme parametre un TObject tu peux lui passer n'importe quel objet dérivant de TObject y compris une TList. c'est le cas des evenements par exemple avec le fameux Sender.

[ShaiLeTroll]

N'appelez pas directement Destroy depuis une application. Appelez plutôt Free. Free vérifie que la référence TCustomMemo n'a pas la valeur nil puis appelle Destroy.

Sinon, etudie la TStrings, TStringList ainsi que les objets tel que TMemo ou TComboBox qui utilise une TStrings comme paramètre de leur propriété mais qui implémente leur propre liste ...

[Paul TOTH]

Code :

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

1
2
3
4
5
6
7
8
9
procedure TfmPrinc.Button2Click(Sender: TObject);
var
 T : TObject;
begin
  T := TList.Create;
  ShowMessage('Test est de classe ' +T.ClassName);
  T.Destroy;
 
end;

Comment on a pu créer la var "T" en tant que Liste(Tliste) alors qu'elle est déclarée comme Tobjet ?

bon on va prendre l'exemple classique

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
 
type
 TFruit=class
 end;
 
 TPomme=class(TFruit)
 end;
 
 TBanane=class(TFruit)
 end;
 
 TPanier=class
  procedure Add(Fruit:TFruit);
 end;
 
var
 panier:TPanier;
 fruit  :TFruit;
begin
 panier:=TPanier.Create;
 fruit:=TPomme.Create;
 panier.Add(fruit);
 fruit:=TBanane.Create;
 panier.Add(fruit);
end;

NB: on aurait très bien pu déclarer des pommes et des bananes, mais de toute façon la fonction Add() travaille sur des Fruits

et si je déclare ceci, on retombe sur ton exemple avec TObject

Code :

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

1
2
3
 
type
 TPanier=TList; // une simple liste de fruits

[helmis]

en ce qui concerne la visibilité

exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
TBanane =Class
    private
    FLonguer:double;
   FLargeur:double;
  public
    CONSTRUCTOR Creer(value:double);
    procedure Vendre(value:double);
    procedure Acheter(value:double);
    property contenu:double read Fcontenu;
  end;
 
var
  Banane :TBanane

Si je mets Banane. dans La classe Form1 il me propose Banane.FLargeur je ne devrais pas y avoir accès !?

Code :

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

1
2
3
4
5
6
 
 
procedure Form1.Button1Click(Sender: TObject);
begin
Banane.FLargeur :=15;
end;

[Paul TOTH]

toutes les classes déclarées dans la même unité sont "amies", aucune règle de restriction ne s'applique (sauf peut-être le "strict private" que je n'ai pas sous Delphi 6)

[helmis]

Merci Paul

D'apres http://www.phidels.com/php/index.php...3c9d7c98d7af14

Ceci fait apparaitre qu'il est de votre responsabilité d'allouer et de libérer la mémoire de l'objet - si vous oubliez de libérer la mémoire vous créez une fuite de ressource

La directive

Code :

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

Aplication.teminate

Ne libere pas automatiquement la Memoire ?

[Paul TOTH]

Merci Paul

D'apres http://www.phidels.com/php/index.php...3c9d7c98d7af14


La directive

Code :

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

Aplication.teminate

Ne libere pas automatiquement la Memoire ?

non, la destruction de l'objet Application assure la destruction de tous les objets dont il est propriétaire (dont il est Owner) et des objets qu'ils possèdent eux même...

EDIT: note aussi que le rôle du destructor n'est pas uniquement de libérer la mémoire, mais également de clore les BDD, flusher les buffers etc...