Discussion :

[nouanda]

Bonjour à tous,

A des fins de formation totalement personnelle, je m’entraîne a créer une classe pour manipuler des dates.
Je ne la dérive pas de TDate ou TDateTime, c'est simplement un objet.
Il y a une procédure pour lui attribuer une date qui sert de base, et a partir de la, j'essaie de récupérer jour mois année, etc... Bref, un petit exercice pour me familiariser avec le classes.
J'arrive sans problème à récupérer les propriétés, avec des getters, mais lorsque j'essaie de changer une propriété, j'obtiens des stackoverflow.
par exemple, le code ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
type
  TCustomDate = class
    private
      WorkingDate : TDate;
      function GetMonth     : word;
      procedure SetMonth(Value: word);
    published
      property Month     : word   read GetMonth write SetMonth;

avec le getter

Code :

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

1
2
3
4
function TCustomDate.GetMonth : word;
  begin
    GetMonth := myMonth ;
  end;

et le setter

Code :

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

1
2
3
4
procedure TCustomDate.SetMonth(Value: word) ;
  begin
    Month := Value ;
  end;

Donc la propriété Month obtient très bien la valeur myMonth (initialisée par ailleurs), mais si je veux changer cette propriété (par exemple myObject.Month:=myObject.Month-1), j'obtiens un stackoverflow, et je ne comprends pas pourquoi.
Pouvez-vous m'éclairer, je vous en prie?

Lazarus 1.0.10 win32

[tourlourou]

Ceci s'explique bien par la ligne Month := Value; qui fait appel à SetMonth pour changer la valeur, etc.
Ce pourquoi il faudrait la transformer en myMonth := Value;, pour peu que myMonth soit bien un champ (privé de préférence) de ta classe, qui gagnerait donc à s'appeler FMonth avec le F comme Field (champ). Par 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
type
  TCustomDate = class
    private
      FMonth     : word;
      procedure SetMonth(AValue: word);
    published
      property Month     : word   read FMonth write SetMonth; // pas besoin de GetMonth s'il ne fait que lire le champ privé
  end;
 
procedure TCustomDate.SetMonth(AValue: word) ;
  begin
    if Value in [1..12] 
    then FMonth := AValue // AValue avec le A comme Argument
    else raise Exception.Create('Saisir un mois entre 1 et 12');
  end;

[Ph. B.]

Bonjour,

1. J'ai regardé le code donné en exemple, mais je ne vois pas de variable privée correspondant aux accesseurs (getter et setter),
2. published est utilisée pour des propriétés modifiables depuis le concepteur visuel de l'EDI, sinon public est plus appropriée.

Le code remanié :

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
type
  TCustomDate = class
  private
    myMonth: word;
    function GetMonth: word;
    procedure SetMonth(Value: word);
  //published
  public
    property Month: word read GetMonth write SetMonth; 
  end;
// ...
function TCustomDate.GetMonth: word;
begin
  GetMonth := myMonth;
end;
 
procedure TCustomDate.SetMonth(Value: word);
begin
  myMonth := Value;
end;

Donc la propriété Month obtient très bien la valeur myMonth (initialisée par ailleurs), mais si je veux changer cette propriété (par exemple myObject.Month:=myObject.Month-1), j'obtiens un stackoverflow, et je ne comprends pas pourquoi.
Pouvez-vous m'éclairer, je vous en prie?

Lazarus 1.0.10 win32

Un débordement de pile ?
Avez vous essayé de tracer l'appel pas à pas pour voir quelle ligne de code précise déclenche l'erreur ?
@tourlourou a été plus attentif que moi 1 . Le problème vient du setter appelé récursivement...

[nouanda]

Bonjour,

Je vous remercie de vos réponses. Grâce à elles, je progresse dans la compréhension des classes en pascal objet.
En effet, les tutoriels que j'ai trouvé sur le net ne sont pas toujours très clairs, et je pensais que comme en java, un setter devait modifier directement la propriété (d'ou le Month := Value ; ).
Merci pour la précision public/published également.
Problème résolu!