Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#10

AW: Index für 2-dimensionale Arrayproperty

  Alt 29. Jan 2012, 23:12
Ok, wenn man 2 Dimensionen zulassen würde, warum dann nicht auch 3 oder mehr Dimensionen?
Man sollte aber bedenken, dass man schon bei einer Dimension von z.B. 5 * 8 ganze 40 Properties hinschreiben muss.
Hier sollte gleich ein kleines Alarmglöckchen leuten: "Eine Klasse mit 40 Properties? Und alle vom gleichen Typ? Da stimmt doch was nicht, da muss es doch auch einen anderen Weg geben"

Das Schlüsselwort "Index" ist doch eher ein selten genutzes Feature mit relativ wenig Nutzen.

Borland hätte stattdessen folgende Property-Deklaration einführen sollen:
Delphi-Quellcode:
TDirection = (dX, dY);

TTestClass = class
private
  procedure SetSomething(value: integer; typ:Char; dir:TDirection): integer;
  function GetSomething(typ:Char; dir:TDirection): integer;
public
  property SpeedX: integer read GetSomething('S', dX);
  property SpeedY: integer read GetSomething('S', dY);
  property PositionX: integer read GetSomething('P', dX) write SetSomething('P', dX);
  property PositionY: integer read GetSomething('P', dY) write SetSomething('P', dY);
  property AccelerationX: integer read GetSomething('A', dX);
end;
  Mit Zitat antworten Zitat