Discussion :

[Pedro]

Oops, autant pour moi!

Je débute juste dans le monde de la POO et j'ai encore pas mal à apprendre !

Pas facile de naviguer entre toutes ces unités

Merci pour cette info Pedro

Avec plaisir

Donc, je dois utilisé la VCL et non les CLX ?
C'était donc ca mon erreur? Mettre les Q... alors qu'il ne fallait mettre que les unités VCL!

En fait, cela dépend de ce que tu veux faire. Si tu veux du multi plateforme (exporter facilement vers Kylix par exemple), utilise la CLX. Sinon, utilise la VCL. Ce sera beaucoup plus simple.
En effet, la CLX nécessite le déploiement d'une DLL pour que le programme fonctionne sur un poste sans Delphi (qtintf.dll)
Toutefois, suivant les versions de Delphi, la VCL et la CLX sont légèrement différentes. Par exemple, sous Delphi 7, MessageDlg de l'unité QDialogs (CLX) permet de spécifier le bouton par défaut de la boite. Ce que ne permet pas par défaut l'unité Dialogs (VCL).
Ton erreur venait du fait que tu tentais de transtyper des classes VCL avec des classes CLX (ou vice versa). Elles n'ont pas le même nom et n'ont pas les mêmes méthodes. C'est donc impossible.
Le "Q" devant les unités signifie simplement que l'unité est l'équivalente CLX de l'unité VCL du même nom.

[ero-sennin]

Que dire de plus, tout est clair !!

Je comprends mieux le fonctionnement de ces unités!
Je comprends mieux maintenant pourquoi ca ne fonctionner pas !

On va rester simple pour commencer, la VCL me suffit amplement !

Encore merci pour ces infos

[ero-sennin]

Je réouvre le Post ! Bé oui, je m'en sors pas

Mon soucis :
ajouter des paramètre supplémentaire à mon create, ton en gardant les paramètres de ceux de la classe mère.

Dans la classe TTables (héritée de TImage) :

Code :

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

1
2
3
4
5
6
7
8
9
10
constructor Create(AOwner: TComponent);override;
 
implementation
 
constructor TTables.Create(AOwner: TComponent);
begin
Inherited;
nbElements:=0;
indiceCourant:=0;
end;

Dans la classe TEntite (héritée de TTables)

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
constructor Create(AOwner: TComponent);override;
 
implementation
 
constructor TEntite.Create(AOwner: TComponent);
begin
inherited;
Self.Width:=150;
Self.Height:=200;
Self.Canvas.Pen.Color:=clBlack;
Self.Canvas.Brush.Color:= clWhite;
Self.Canvas.Brush.Style:=bsSolid;
Self.Canvas.Rectangle(0,0,Self.Width,Self.Height);
Self.Canvas.Polyline([Point(0,20),Point(Self.Width,20)]);
Repaint;
end;

Dans la classe TRelation (héritée de TTables)

Code :

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

1
2
3
4
5
6
7
8
9
constructor Create(AOwner: TComponent;EntiteA:TEntite;EntiteB:TEntite);override;
 
implementation
 
constructor TRelation.Create(AOwner: TComponent;EntiteA:TEntite;EntiteB:TEntite);
begin
inherited;
//suite du code à définir
end;

Mais j'ai cette erreur :

Code :

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

[Erreur] Relation.pas(11): La déclaration de 'Create' diffère de la déclaration précédente

Cela viendrait-il du fait que le create de TTables diffère de celui défini dans TRelation?

Compliquer les constructeurs quand même !

[Pedro]

Utilise reintroduce en lieu et place de override

Code :

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

1
2
 
constructor Create(AOwner: TComponent;EntiteA:TEntite;EntiteB:TEntite);reintroduce;

Cela aura pour effet de pouvoir ajouter des paramètres à la déclaration de l'ancêtre.
Attention dans ce cas, ce que j'ai dis avant à Cl@udius tient toujours: Puisque les paramètres sont différents, tu ne peux plus faire:

Code :

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

1
2
 
inherited;

Tu es obligé d'appeler le Create explicitement:

Code :

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

1
2
 
inherited Create(AOwner);

sinon, Delphi se perd

[ero-sennin]

Encore une fois, ca fonctionne!

Ca fait beaucoup de choses assimilées en peu de temps!
Donc reintroduce pour ajouter des paramètres.

Mais je ne comprends pas une chose.
Pourquoi ne puis-je pas faire :

Code :

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

constructor Create(AOwner: TComponent;EntiteA:TEntite;EntiteB:TEntite);reintroduce;override;

Car si j'ai suivis :
- override permet de surcharger sans redéfinir les paramètre de la méthode
- reintroduce permet d'ajouter des paramères à une méthode tous en masquant les avertissements du compilateur informant qu'une méthode virtuelle précédemment déclarée est masquée.

EDIT :

J'ai vu sur certains posts, qu'il fallait mettre overload.
C'est donc ceci que je dois utiliser si je veux surcharger mon create?

[Pedro]

J'ai vu sur certains posts, qu'il fallait mettre overload.
C'est donc ceci que je dois utilié si je veux en surcharger mon create?

Tu te mélanges un peu les pinceaux:
overload: permet de déclarer 2 fonctions avec des paramètres différents mais toujours accessibles
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
15
16
17
 
TMaClasse = class
private
  procedure MaProcedure(Param: double); virtual
end;
 
TMaClasse2 = class(TMaClass)
private
  procedure MaProcedure(Param: integer);overload;
end;
 
procedure Machin;
begin
  MaClasse2.MaProcedure(12.4);
  MaClasse2.MaProcedure(12);
  //Tu gardes la possibilité d'appeler la méthode de la classe ancêtre
end;

reintroduce: permet de surcharger une méthode de l'ancêtre en modifiant les paramètres. 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
15
16
 
TMaClasse = class
private
  procedure MaProcedure(Param: double); virtual
end;
 
TMaClasse2 = class(TMaClass)
private
  procedure MaProcedure(Param: integer);reintroduce;
end;
 
procedure Machin;
begin
  MaClasse2.MaProcedure(12);
  //Tu ne peux que appeler ce Create
end;

Voila en gros sans les subtilités et j'espère que je ne me plante pas

- reintroduce permet d'ajouter des paramères à une méthode tous en masquant les avertissements du compilateur informant qu'une méthode virtuelle précédemment déclarée est masquée.

Ca sert à plus qu'à ça
En fait, si le compilo te dit ça, c'est que tu redéclares une méthode avec le même nom qu'un méthode virtuelle de l'ancêtre. Donc la méthode ancêtre est cachée. Tu n'y a plus accès. Alors qu'en la surchargeant (override, overload ou reintroduce) tu gardes la possibilité de faire un inherited.

[ero-sennin]

OK!

En effet, je me perds un peu dans tout ca...

Je vais faire quelques tests simple comme tu as fais afin de bien cerner ces mots clés car c'est hyper important de bien comprendre les différences entre ces divers mots clés !

Merci d'avoir pris le temps de bien tout m'expliquer Pedro!

Allez, je vais faire mes quelques tests

[Pedro]

Allez, je vais faire mes quelques tests

Si après tes tests, tu vois que je me suis planté, n'hésite pas à venir me corriger
J'ai un doute surtout sur l'utilisation de inherited dans une méthode non-surchargée...