Discussion :

[ejaecker]

Bonjour à tous

Je suis surement pas assez réveillé ce matin, mais j'arrive pas à voir ce qui cloche là :

Sous D6

Code :

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

1
2
3
4
5
6
7
8
9
10
type
 TPersonne = Class
  private
  	function CalculAge(aDate: TDatetime) : integer;
	public
  	Nom : string;
    Prenom: string;
    DateDeNaissance: TDatetime;
    property Age: integer read CalculAge;
  end;

à la compil j'ai l'erreur suivante sur la ligne de définition de la propriété: Types Incompatible

Je vais aller prendre un café et espérer soit avoir les idées plus claire en revenant soit que quelqu'un donne son avis ici !

Merci d'avance.

[Paul TOTH]

ben c'est normal, ta méthode attend un paramètre que ta propriété n'a pas

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
 
type
 TPersonne = Class
  private
    FNom : string;
    FPrenom: string;
    FDateDeNaissance: TDatetime;
    function CalculAge(aDate: TDatetime) : Integer;
    function GetAge: Integer; // Result := CalculAge(FDateDeNaissance);
  public
    property Nom: string read FNom write FNom;
    property Prenom: string read FPrenom write FPrenom;
    property DateDeNaissace: TDateTime read FDateDeNaissance write FDateDeNaissance;
    property Age: Integer read GetAge;
    property AgeFromDate[aDate: TDateTime]: integer read CalculAge;
  end;

[ejaecker]

ben c'est normal, ta méthode attend un paramètre que ta propriété n'a pas

je pensais bien que j'avais merdouillé :
je me copierai 100 fois :
Pas de paramètre autorisé pour les fonctions utilisées comme spécificateur read

Merci Paul

Emmanuel.

[Aka Guymelef]

Petite précision :

"Pas de paramètre autorisé pour les fonctions utilisées comme spécificateur read sauf en cas de propriété tableau ou indexée."

[ejaecker]

Petite précision :

"Pas de paramètre autorisé pour les fonctions utilisées comme spécificateur read sauf en cas de propriété tableau ou indexée."

Je n'avais pas réalisé que l'index d'une propriété pouvait être utilisée comme paramètre à son accesseur.
Au final mon code précédent pouvait être correct en modifiant la propriété comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
type
TPersonne1 = Class
  private
    function CalculAge(aDate: TDatetime) : integer;
  public
    Nom : string;
    Prenom: string;
    DateDeNaissance: TDatetime;
    property Age[aDate: TDateTime]: integer read CalculAge;
end;

Merci à vous.
Emmanuel.