Discussion :

[EpiTouille]

Bonjours, voilà j'ai quelques problèmes avec la poo.
Pour bien me faire comprendre, j'ai fais un petit code d'exemple tout simple.

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
 
program objets;
 
type
  tParent = object
   public 
    nombre : integer; // Un champs
    procedure init;   // Une méthode
  end;
 
  tEnfant = object(Tparent)
   public
     procedure affiche; //Une méthode
  end;
 
//Implementation
 
Procedure tParent.init;
begin
  nombre := 5; //On donne une valeur au champs parent
end;  
 
procedure tEnfant.Affiche;
begin
  write(nombre);
end;
 
 
// Instance de classe
var
  Enfant : tEnfant;
  Parent : tParent
 
// Main
begin
  Parent.init;
  Enfant.Affche;
end.

Ce programme affiche 0. Alors qu'il 'devrait' afficher 5.
Merci de vos réponses

[Paul TOTH]

c'est mignon

tu as deux objets distincts, tu initialises le premier et affiche le second, pas étonnant de ne pas avoir le résultat que tu voudrais

ton code est équivalent à ceci

Code :

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

1
2
3
4
5
6
7
8
 
var
  a : integer;
  b : integer;
begin
  a := 5;
  writeln(b);
end;

[EpiTouille]

Et donc, je doit faire quoi, parce que quand je met

tparent.nombre, j'ai une erreur du type

méthode identifier exepted

merci

[Andnotor]

Le problème est que ton objet n'est pas instancié (pas de Create), donc pas d'allocation
Ce code pourrait te renvoyer 0 comme n'importe quelle autre valeur ! N'as-tu pas une violation d'accès à la sortie ? (Peut-être pas avec un simple entier...)

Ensuite comme le dit Paul, attention au concept. Ce n'est pas du parent/enfant, mais du ancêtre/héritier

Code :

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

1
2
3
4
5
6
7
8
9
10
begin
  Enfant := TEnfant.Create;
 
  try
    Enfant.init;
    Enfant.Affiche;
  finally
    Enfant.Free;
  end;
end.

[EpiTouille]

ça marche

il c'est juste qu'à la fin c'était bien

Code :

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

1
2
3
 
  enfant.init;
  enfant.affiche;

[Andnotor]

Sans instanciation, tu vas au-devant de grands ennuis