Accès au jour, au mois et à l'année
Remonter à Suivi de la date
Une date encodée numériquement est adaptée aux applications, mais l'utilisateur préférera manipuler jour, mois et année. En créant des propriétés, vous offrez un accès aux dates stockées et encodées numériquement.
Les éléments d'une date (jour, mois, année) sont des entiers. La modification de chacun d'entre eux nécessite l'encodage de la date. Vous pouvez éviter la duplication du code en partageant les méthodes d'implémentation entre les trois propriétés. Autrement dit, vous pouvez écrire deux méthodes, l'une pour lire un élément et l'autre pour l'écrire, et utiliser ces méthodes pour lire et écrire les trois propriétés.
Pour fournir un accès lors de la conception aux éléments jour, mois et année, procédez de la façon suivante :
- Déclarez les trois propriétés, en attribuant à chacune un numéro unique d'index:
type TSampleCalendar = class(TCustomGrid) public property Day: Integer index 3 read GetDateElement write SetDateElement; property Month: Integer index 2 read GetDateElement write SetDateElement; property Year: Integer index 1 read GetDateElement write SetDateElement; // …
class PACKAGE TSampleCalendar : public TCustomGrid { // … public: __property int Day = {read=GetDateElement, write=SetDateElement, index=3, nodefault}; __property int Month = {read=GetDateElement, write=SetDateElement, index=2, nodefault}; __property int Year = {read=GetDateElement, write=SetDateElement, index=1, nodefault}; };
- Déclarez et écrivez les méthodes d'implémentation, définissant les différents éléments pour chaque valeur d'index:
type TSampleCalendar = class(TCustomGrid) private function GetDateElement(Index: Integer): Integer; { note the Index parameter } procedure SetDateElement(Index: Integer; Value: Integer); // … function TSampleCalendar.GetDateElement(Index: Integer): Integer; var AYear, AMonth, ADay: Word; begin DecodeDate(FDate, AYear, AMonth, ADay); { break encoded date into elements } case Index of 1: Result := AYear; 2: Result := AMonth; 3: Result := ADay; else Result := -1; end; end; procedure TSampleCalendar.SetDateElement(Index: Integer; Value: Integer); var AYear, AMonth, ADay: Word; begin if Value > 0 then { all elements must be positive } begin DecodeDate(FDate, AYear, AMonth, ADay); { get current date elements } case Index of { set new element depending on Index } 1: AYear := Value; 2: AMonth := Value; 3: ADay := Value; else Exit; end; FDate := EncodeDate(AYear, AMonth, ADay); { encode the modified date } Refresh; { update the visible calendar } end; end;
// header file class PACKAGE TSampleCalendar : public TCustomGrid { private: int __fastcall GetDateElement(int Index); // note the Index parameter void __fastcall SetDateElement(int Index, int Value); // … }; // implementation file int __fastcall TSampleCalendar::GetDateElement(int Index) { unsigned short AYear, AMonth, ADay; int result; FDate.DecodeDate(&AYear, &AMonth, &ADay); // break encoded date into elements switch (Index) { case 1: result = AYear; break; case 2: result = AMonth; break; case 3: result = ADay; break; default: result = -1; } return result; } void __fastcall TSampleCalendar::SetDateElement(int Index, int Value) { unsigned short AYear, AMonth, ADay; if (Value > 0) // all elements must be positive { FDate.DecodeDate(&AYear, &AMonth, &ADay); // get current date elements switch (Index) { case 1: AYear = Value; break; case 2: AMonth = Value; break; case 3: ADay = Value; break; default: return; } } FDate = TDateTime(AYear, AMonth, ADay); // encode the modified date Refresh(); // update the visible calendar }
Vous pouvez maintenant définir le jour, le mois et l'année du calendrier lors de la conception à partir de l'inspecteur d'objets, ou à l'exécution à partir du code. Bien que vous n'ayez pas encore ajouté le code pour dessiner les dates dans les cellules, vous disposez maintenant de toutes les données nécessaires.