get/set c'est en C++ ça, en Pascal y a mieux:
Code :
- private
- FAttribut: Integer
- procedure SetAttribut(AValue: Integer);
- function GetAttribut: Integer;
- public:
- property Attribut: Integer read GetAttribut write SetAttribut;
- end;
- procedure SetAttribut(AValue: Integer);
- begin
- ...
- FAttribut := AValue;
- ...
- end;
- procedure GetAttribut: Integer;
- begin
- ...
- Result := FAttribut;
- end;
|
ça permet d'assigner/lire l'attribut comme si c'était un attribut public:
Code :
- MonOnject.Attribut := 1;
|
Mais on passe par des fonctions pour le faire (donc avec des contrôles, calculs, ...)
on peut aussi directement mettre:
Code :
- property Attribut: Integer read FAttribut write FAttribut;
|
par exemple.
[jfdsdjhfuetppo]--Message édité par antp--[/jfdsdjhfuetppo]
---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire