Properties a Index

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