Class en delphi

Marsh Posté le 13-08-2003 à 15:52:04

'Lu,

J'apprends les classes en delphi et toutes les histoires d'héritage, mais il y a quelque chose que je ne comprends pas trop :

Code :

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TTest = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TBaseClass = class
X: integer;
Y: integer;
function addition: integer;
end;
type
TSecondClass = class(TBaseCLass)
Z: integer;
function addition: integer;
end;
var
Test: TTest;
implementation
{$R *.dfm}
function TBaseCLass.addition: integer;
begin
result := X + Y;
end;
function TSecondClass.addition: integer;
begin
result := inherited addition + Z;
end;
procedure TTest.Button1Click(Sender: TObject);
var
BaseObj: TBaseClass;
SecondObj: TSecondClass;
Result1: integer;
Result2: integer;
begin
BaseObj := TBaseClass.Create;
SecondObj := TSecondClass.Create;
BaseObj.X := 15;
BaseObj.Y := 15;
SecondObj.Z := 100;
Result1 := BaseObj.addition;
Result2 := SecondObj.addition;
ShowMessage(IntTOStr(Result1)+' - '+IntToStr(Result2));
end;
end.

Result1 me renvoie 30 : normal
Result2 me renvoie 100 : pourquoi ?

Pourquoi est-ce que result2 ne me renvoie-t-il pas 130 ? Pcq si j'ai bien compris, SecondObj va hériter de toutes les données de BaseObj ... mais ici il n'hérite pas de X ni de Y :??:

(Meme que j'ai oublié de detruire mes objets mais ca on s'en balance pour le moment :whistle: )

Message édité par Yana le 13-08-2003 à 15:55:57

Reply

Marsh Posté le 13-08-2003 à 15:52:04

Reply

Marsh Posté le 13-08-2003 à 15:57:07

il hérite des membres, des méthodes, etc...
pas des valeurs affectés aux propriété ça n'a rien à voir

tu confond classe et instance

en gros ta secondclasse hérite de X et Y mais pas des valeurs contenu dedans, elle hérite de l'"architecture"

Message édité par Poipoi le 13-08-2003 à 15:58:18

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Reply

Marsh Posté le 13-08-2003 à 15:58:08

ok merci,

mais qu'est ce qu'on entend par une "instance de classe" ? c'est aussi qqch que je n'ai jamais vraiment compris ...

Reply

Marsh Posté le 13-08-2003 à 16:35:22

une classe c'est juste un "squelette", les attribut n'y ont pas de valeurs, ça ne prend pas de place en mémoire
les instances de classes (appelées souvent objets, en POO) c'est ce qui résulte de l'appel au .Create, ça prend de la place en mémoire, ça stocke les valeurs des attributs, etc.
Dans ce cas-ci tu assignes des valeurs au X et Y d'un objet de type "base", mais pas à l'objet de type "second", du coup ses X et Y sont restés à 0

Message édité par antp le 13-08-2003 à 16:36:09

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Reply

Marsh Posté le 13-08-2003 à 20:17:29

merci pour les réponses !

Il me reste encore une petite question à vous poser (pour le moment )

A quoi ca sert de mettre "virtual", "override", "overload", "reintroduce",... dans les définitions ?

Reply

Marsh Posté le 13-08-2003 à 20:22:00

virtual = les descendants pourront implémenter une fonction identique, qui sera appelée à la place de celle du parent, même si l'objet est stocké dans une variable du type du parent

override = on défini un truc qui était déjà défini par le parent (qui a probablement mis virtual ou override lui aussi)

overload = fonction qui a le même nom qu'une autre, mais des paramètres différents

reintroduce = overload+override (on écrase la fonction d'un parent, mais en changeant ses paramètres, de manière à ce que la fonction du parent avec anciens params ne soit plus visible)

PS: quand je dis fonction ça s'applique aussi aux procédures évidemment

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Reply

Class en delphi

Sujets relatifs:

Leave a Replay