<< RoadMap aktualizována (léto 2013) | Delphi Android sneak preview >>

Properties a Index

vložil Radek Červinka 10. srpna 2013 09:37

Přiznám se, že následující část možnosti property mi nebyla známou a nejsem si jist zda to není nějaká novinka. Jde o to, že kromě property typu pole, což je snad všeobecně známo a používáno, lze dodefinovat další property, které index do pole mají jako konstantu a jsou tak něco jako zkratka pro určité prvky pole. Z příkladu to bude jasnější:

 type
    TRectangle = class
      private
        FCoordinates: array[0..3] of Longint;
        function GetCoordinate(Index: Integer): Longint;
        procedure SetCoordinate(Index: Integer; Value: Longint);
      public
        property Left: Longint index 0  read GetCoordinate 
                                        write SetCoordinate;
        property Top: Longint index 1   read GetCoordinate 
                                        write SetCoordinate;
        property Right: Longint index 2 read GetCoordinate
                                        write SetCoordinate;
        property Bottom: Longint index 3 read GetCoordinate
                                         write SetCoordinate;
        property Coordinates[Index: Integer]: Longint 
                                        read GetCoordinate
                                        write SetCoordinate;
        …
    end;

Property Coordinates je klasická old-school property pole, která používá GetCoordinate a SetCoordinate pro vrácení prvku pole, ale všimněte si Left, Top, Right a Bottom. Tyto ukazují který index z pole představuje položku. Nevím, odkdy toto Delphi podporuje, ale je to podle mne šikovné.

09862c18-044d-4e91-8359-7cff3cc915fc|4|3.5

Tagy: Object Pascal, delphi

Jazyk | Začátečníci

Související příspěvky

Tiobe index ClassHelper pro TStrings Základy JSON v Delphi Chyba pro dnešní den Windows 10 "Per Monitor v2" podpora a lepší podpora Hi-DPI System.JSON v Delphi XE6 a XE7, pokračování

Komentáře

10.8.2013 11:45:41 #

Tohle je v Delphi už dávno, funguje to i v Delphi 5. Například Delphi 2009 to intenzivně využívají v SOAPu.

pepak

10.8.2013 19:47:10 #

Index se dá použít už v D2. Já jsem to hlavně chápal jako mechanismus pro zjednodušení kódu, možnost použít společnou Get a Set metodu pro víc vlastností stejnýho typu.

daks

1.9.2013 22:28:31 #

K tomuto tématu bych snad jen doplnil, že to lze použít i s jinýmy ordinálními typy než je Integer, především ale s vlastními výčtovými typy.
Lze např. zapsat:

type
  TCoord = (coLeft, coTop, coRight, coBottom);
  TGenCoord<T> = class
  protected
    function GetCoord(Index: TCoord): T; virtual; abstract;
    procedure SetCoord(Index: TCoord; Value: T); virtual; abstract;
  public
    property Left: T index coLeft read GetCoord write SetCoord;
    property Right: T index coRight read GetCoord write SetCoord;
    property Top: T index coTop read GetCoord write SetCoord;
    property Bottom: T index coBottom read GetCoord write SetCoord;
  end;

Výhody takto definované třídy při pozdější implementaci jsou patrné.
Pokud budu chtít třídu nadefinovat pro uložení koordinátů s plovoucí čárkou, stačí zapsat:

type
  TFloatCoord = class(TGenCoord<Integer>)
  protected
    function GetCoord(Index: TCoord): Integer; override;
    procedure SetCoord(Index: TCoord; Value: Integer); override;
  end;

Pak už záleží jen na použití, kde budou hodnoty uchovány, zda v paměti, v databázi apod.
Každopádně namísto implementace dvou procedur pro každou property nám stačí dvě, kde bude jedna podmínka CASE:

function TFloatCoord.GetCoord(Index: TCoord): Integer;
begin
  case (Index) of
    coLeft: Result := ...;
    coTop: Result := ...;
    coRight: Result := ...;
    coBottom: Result := ...;
    else raise Exception.Create('Undefined enumeration #' + IntToStr(Ord(Index)));
  end;
end;

Igor Gottwald

1.9.2013 22:30:47 #

Pardon, koukám, že jsem nevysvětlil tu výhodu výčtového typu: když těch vlastností bude větší množství, snadno při pozdější implementaci zaměníte dvě hodnoty, ale výčtový typ vám bude neustále 'napovídat', se kterou hodnotu vlastně pracujete.

Igor Gottwald

Komentování ukončeno