Discussion :

[NewUserDelphi]

Bonjour

Je me familiarise doucement avec la POO.

Je crée un objet comme suit :

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
TBarre = class
  strict private
    FDate: double;
    FBid: double;
    FAsk: double;
    FSpread: double;
 
  public
    property Date: double read FDate write FDate;
    property Bid: double read FBid write FBid;
    property Ask: double read FAsk write FAsk;
    property Spread: double read FSpread write FSpread;
    constructor Create(ADate, ABid, AAsk, ASpread: double);
  end;
constructor TBarre.Create(ADate, ABid, AAsk, ASpread: double);
begin
  FDate := ADate;
  FBid := ABid;
  FAsk := FAsk;
  ASpread := ASpread;
end;

pour l utiliser dans mon code je fais cela :

Code :

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

mabarre := TBarre.Create(0, 0, 0, 0);

Y a t il un moyen de modifier mon constructeur pour pouvoir crée mon objet avec toutes ces valeurs par defaut à 0 et le créer, (à l image d un TStringList par exemple) ainsi :

Code :

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

mabarre := TBarre.Create;

Merci

[SergioMaster]

Bonjour,

le truc que vous cherchez c'est la surcharge (overload)

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
 TBarre = class
  strict private
    FDate: double;
    FBid: double;
    FAsk: double;
    FSpread: double;

  public
    property Date: double read FDate write FDate;
    property Bid: double read FBid write FBid;
    property Ask: double read FAsk write FAsk;
    property Spread: double read FSpread write FSpread;
    constructor Create(); overload;
    constructor Create(ADate, ABid, AAsk, ASpread: double); overload;

  end;

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
{ TBarre }


constructor TBarre.Create(ADate, ABid, AAsk, ASpread: double);
begin
  FDate := ADate;
  FBid := ABid;
  FAsk := FAsk;
// une erreur ici   ASpread := ASpread; 
  FSpread:=ASpread; 
end;

constructor TBarre.Create;
begin
  FDate:=0;
  FBid:=0;
  FAsk:=0;
  FSpread:=0;
end;

P.S. Si vous débutez en POO je vous conseille la lecture de ce tutoriel

[tourlourou]

Autre possibilité : indiquer une valeur de paramètre par défaut qu'il prendra s'il n'est pas renseigné :

Code :

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

constructor TBarre.Create(ADate: double = 0.0 ; ABid: double = 0.0 ; AAsk: double = 0.0 ; ASpread: double = 0.0);

Les x paramètres passés sont attribués du premier au xième, de la gauche vers la droite.

[NewUserDelphi]

Merci pour vos réponses, la correction de mon erreur et le tuto.

[Andnotor]

A noter que l'initialisation dans le constructeur n'est nécessaire que pour des données différentes de 0 ou nil.
Dans le cas présent, définir un constructeur est inutile à moins qu'il soit aussi utilisé pour un reset des données une fois l'objet instancié.