Index für 2-dimensionale Arrayproperty

[Pangea]

Danke für die Antwort.

Das ich dort nur einen Wert angeben kann ist wirklich schade Vor allem da die mathematische Lösung bei größeren Zahlen nicht mehr funktioniert.

Bezüglich der "Arrayproperty", ich wusste nicht so recht wie ich das nennen sollte... und da es (zumindest für mich) ganz grob in etwa die gleiche Richtung ging, hab ich es mal so bezeichnet

Ich programmiere Delphi jetzt noch nicht sooo lange. Von daher bin ich in Sachen Begrifflichkeiten noch nicht allzu trittsicher...

Auf jeden Fall ist die Sache für mich damit jetzt geklärt

[himitsu]

Mehr als 4 Milliarden Property wirst du bestimmt nicht anlegen.
Dann bliebe noch durchzählen und dann z.B. über ein CASE deine Werte zuweisen.

Delphi-Quellcode:

property ... index 1 read MyGetter ...;
property ... index 2 read MyGetter ...;

procedure TMyClass.MyGetter(Index: Integer);
begin
  case Index of
    1: ...;
    2: ...;
  end;
  ...
end;

[sx2008]

Zitat von Pangea:

Das ich dort nur einen Wert angeben kann ist wirklich schade Vor allem da die mathematische Lösung bei größeren Zahlen nicht mehr funktioniert.

Wozu brauchst du das denn?
Ist dir klar, wozu man das Schlüsselwort "index" überhaupt benützt?
In dem Beispiel werden 5 Properties auf die gleiche Get-Funktion umgebogen.

Delphi-Quellcode:

TTestClass = class
private
  function GetSomething(index: integer): integer;
public
  property SpeedX: integer index 1 read GetSomething;
  property SpeedY: integer index 2 read GetSomething;
  property PositionX: integer index 3 read GetSomething;
  property PositionY: integer index 4 read GetSomething;
  property Acceleration: integer index 5 read GetSomething;
end;

Mal angenommen das vermisste Sprachfeature würde es geben, dann sähe der Code so aus:

Delphi-Quellcode:

TTestClass = class
private
  function GetSomething(index1, index2: integer): integer;
public
  property SpeedX: integer index 1,0 read GetSomething;
  property SpeedY: integer index 1,1 read GetSomething;
  property PositionX: integer index 2,0 read GetSomething;
  property PositionY: integer index 2,1 read GetSomething;
  property AccelerationX: integer index 3,0 read GetSomething;
end;

Wäre es erlaubt so zu programmieren, täte man sich damit aber keinen Gefallen weil diese Deklaration total unübersichtlich wird.

[Pangea]

Zitat von himitsu:

Mehr als 4 Milliarden Property wirst du bestimmt nicht anlegen.

Ja, das wäre mir dann doch ein bsichen viel Arbeit

Ich bin halt letztens über diesen Index gestolpert und hab mich gefragt, ob das ganze nicht auch mit mehreren Indizes funktionieren würde. Zugegeben man braucht es eher selten, aber es hat mich halt mal interessiert.

Zitat von sx2008:

Mal angenommen das vermisste Sprachfeature würde es geben, dann sähe der Code so aus:

Delphi-Quellcode:

TTestClass = class
private
  function GetSomething(index1, index2: integer): integer;
public
  property SpeedX: integer index 1,0 read GetSomething;
  property SpeedY: integer index 1,1 read GetSomething;
  property PositionX: integer index 2,0 read GetSomething;
  property PositionY: integer index 2,1 read GetSomething;
  property AccelerationX: integer index 3,0 read GetSomething;
end;

Wäre es erlaubt so zu programmieren, täte man sich damit aber keinen Gefallen weil diese Deklaration total unübersichtlich wird.

So unübersichtlich sieht das Ganze doch gar nicht aus...

Aber ich glaub ich verstehe, dass es nicht sinnvoll ist, alle Properties auf eine Get-Funktion umzubiegen. Das würde in der Tat leicht unübersichtlich werden.

[Uwe Raabe]

Zitat von sx2008:

Wäre es erlaubt so zu programmieren, täte man sich damit aber keinen Gefallen weil diese Deklaration total unübersichtlich wird.

Dem kann ich nicht zustimmen! Ich hatte schon öfter den Fall, wo ich eine Reihe Boolscher Properties auf die Bits eines ByteArrays mappen wollte. Da käme ein solches Konstrukt gerade recht. Als Lösung habe ich dann für jedes Byte einen eigenen Getter und Setter deklariert, in dem ich dann mit Index 0..7 die Bits abfragen konnte. Alternativ habe ich auch schon einfach eine BitIndex 0..n verwendet, was aber auch nicht ideal war, da die Bits in der Vorgabe mit 4.1, 6.5 usw. angegeben waren. War alles nicht gerade übersichtlicher.

Ein Sprachkonstrukt zu verbieten, nur weil man damit unübersichtlich programmieren kann, ist einfach kurzsichtig. Man kann schließlich mit jeder Programmmiersprache unübersichtlich programmieren.

[Furtbichler]

Deine Bits und Bytes kannst Du doch wunderbar mit einem Index umsetzen:

Delphi-Quellcode:

Property Bit0OfFirstByte : boolean index 00 ...
Property Bit7OfFirstByte : boolean index 07 ...
Property Bit0OfSecondByte : boolean index 10 ...
Property Bit7OfSecondByte : boolean index 17 ...

[Uwe Raabe]

Zitat von Furtbichler:

Deine Bits und Bytes kannst Du doch wunderbar mit einem Index umsetzen:

Delphi-Quellcode:

Property Bit0OfFirstByte : boolean index 00 ...
Property Bit7OfFirstByte : boolean index 07 ...
Property Bit0OfSecondByte : boolean index 10 ...
Property Bit7OfSecondByte : boolean index 17 ...

Klar geht das so - es gibt für fast alles einen Workaround. Elegant geht anders.

IMHO gibt es keinen Grund an der Stelle nicht mehrere Indexeinträge zu erlauben. Wenn das jemand zu unübersichtlich ist, muss er es ja nicht verwenden.

[sx2008]

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;

[Furtbichler]

Zitat von sx2008:

Man sollte aber bedenken, dass man schon bei einer Dimension von z.B. 5 * 8 ganze 40 Properties hinschreiben muss.

Wieso das denn? ich muss doch nicht für jeden möglich Index eine Property hinschreiben.

Zitat:

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

Es spart Platz und Tipparbeit.

Zitat:

Borland hätte stattdessen folgende Property-Deklaration einführen sollen:

Das ist dann kein Delphi/Pascal mehr. Das Wesen von Pascal ist die Trennung von Deklaration und Implementierung. Wenn Du soetwas magst, wechsle zu C# (z.B.)