Programation Orientée Objet POO

Version imprimable

Code:

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 ?

30/04/2008, 12h11
Kaféine

TList descend de TObject: Polymorphisme
30/04/2008, 12h15
helmis

merci

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

Pourquoi procéder avec Tobject ?
30/04/2008, 12h21
Kaféine

Citation:

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.
30/04/2008, 12h24
ShaiLeTroll

:f1:

Citation:

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 ...

Citation:
Envoyé par helmis
Code:

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:

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:

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

en ce qui concerne la visibilité

exemple

Code:

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 !?8O

Code:

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

01/05/2008, 13h38
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)
01/05/2008, 15h10
helmis

Merci Paul

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

Citation:

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:

Aplication.teminate

Ne libere pas automatiquement la Memoire ?
01/05/2008, 15h17
Paul TOTH

Citation:

Envoyé par helmis

Merci Paul

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

La directive

Code:

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...
02/05/2008, 15h46
helmis

Le modèle physique choisi pour Delphi est celui de la référence :
* Chaque objet est caractérisé par un couple ( référence, bloc de données).
* Si la variable de référence est locale à une procédure,elle est alors située physiquement
dans la pile d’exécution avec les autres variables locales.
* Si la variable de référence est globale, elle est située physiquement dans le segment de
données (permanent durant toutes la durée de l'exécution). Dans les deux cas, le bloc
de données (l'objet effectif) est alloué dans le tas.
Ci-dessous une carte mémoire fictive d'un processus (une application Delphi classique à un
seul thread):

http://glbl.textile.googlepages.com/...tdememoire.JPG

La simplicité du modèle (semblable aux variables dynamiques ou pointeurs du pascal) permet
de dire qu’en Delphi les pointeurs sont sous-jacents mais entièrement encapsulés.
Ce modèle impose une contrainte d’écriture en découplant la déclaration d’objet et sa création.

ainsi
Variable locale = Private & Globale = Public ?

Merci bien
02/05/2008, 17h53
Paul TOTH

l'image est juste, et le Pascal/Delphi sépare en effet la partie déclaration de la partie execution (y compris les constructor).

mais la dernière question n'est pas très claire.

une variable globale n'est pas forcément publique.

1) si elle est déclarée après le mot clé "implementation" d'une unité, elle n'est visible que dans le code qui vient après cette déclaration.

2) si elle est déclarée entre les mots "interface" et "implementation" elle est visible dans cette unité après sa déclaration, et pour le reste du programme, elle n'est visible qu'après un "uses" de son unité.