Array und negativ werte.

[EWeiss]

Ich möchte ein Array mit negativ werten anlegen.
bsp.

Delphi-Quellcode:

const
 a = -1;
 b = -2;
 c = -3;
 d = -4;
 e = -5;

type
  Sprite = record
    x: Integer;
    y: Integer;
    w: Integer;
    h: Integer;
    visible: Bool;
  end;
  TSprite = Sprite;
  PSprite = ^TSprite;

var
  sp: Array of TSprite

Delphi-Quellcode:

  if sp[1].x < 40 then
    sp[a].visible := true

Delphi-Quellcode:

//sp[a].visible.. Array < 0 gleicht [DCC Fehler] Konstantenausdruck verletzt untere Grenzen.

logisch aber wie kann ich das trotzdem verwirklichen?

gruss

[a.def]

Super dumme Idee aber...

Delphi-Quellcode:

sp[(a*-1) - 1].visible := true

? :lol:

[EWeiss]

Zitat:

Zitat von a.def (Beitrag 1369494)

Super dumme Idee aber...

Delphi-Quellcode:

sp[(a*-1) - 1].visible := true

? :lol:

Was hat das mit dumm zu tun?
Ich möchte das meine HÖCHSTEN werte 0 betragen.. Was ist da also Dumm dran?
Es hat seine Berechtigung im weiteren Verlauf meines Codes.

Du willst werte die Fest zugewiesen wurden (CONST) mit a*-1 verändern? LOL (dumme Idee)

gruss

[a.def]

Zitat:

Was ist da also Dumm dran?

MEINE Idee mit dem *-1-1 meine ich ist eventuell dumm. Nicht dein Vorhaben.

Zitat:

Du willst werte die Fest zugewiesen wurden (CONST) mit a*-1 verändern? LOL (dumme Idee)

Der Wert der Konstanten wird nicht verändert.

[EWeiss]

Zitat:

MEINE Idee mit dem *-1-1 meine ich ist eventuell dumm. Nicht dein Vorhaben.

Entschuldige dann habe ich das falsch aufgefasst. ;)

Nur in dem Fall wenn ich das richtig verstehe könnte ich direkt die Const auf diese weise auslegen.

Delphi-Quellcode:

const
  a = 1;
  b = 2;
  c = 3;
  d = 4;
  e = 5;

Das Problem dabei ist nur sp[0] ist das in der ZOrder am höchsten angeordnete Bitmap.
Die anderen 4 müssen darunter liegen.

Anderes bsp:

Delphi-Quellcode:

const
  LBOUND = e // also -5

SetLength(sp, 1); // höchste Array Eintrag. "0"

for x := LBOUND to High(sp) do
begin
  if sp(x).hBitmap then
  begin 
    DeleteObject(sp(x).hBitmap); 
    sp[x].hBitmap := 0; 
  end;
end;

oder..

Delphi-Quellcode:

for I := -1 downto LBOUND do

Eventuell geht das mit Delphi nicht.
Früher mit VB6 war das kein Problem. (Array mit - werten)

Sollte es nicht gehen muss ich mir mit der ZOrder etwas anderes überlegen.


gruss

[Olli73]

Was willst du eigentlich damit erreichen?

[EWeiss]

Zitat:

Zitat von Olli73 (Beitrag 1369498)

Was willst du eigentlich damit erreichen?

siehe editierten Beitrag.

gruss

[Michael II]

Du kannst doch das Problem mit den Indices "ausserhalb" der eckigen Klammern regeln.
Ich sehe hier keine Notwendigkeit negative Indices zu verwenden.

Und wenn du's doch tun willst und du bereits jetzt weisst, dass du nur Elemente von -5..-1 unterbringen willst oder zum Beispiel von -10..10, dann verwende doch einfach einen statischen Array:

sp : array[-10..10] of TSprite;

Dann kann der Compiler das für dich regeln :-D.

[EWeiss]

Zitat:

Zitat von Michael II (Beitrag 1369501)

Du kannst doch das Problem mit den Indices "ausserhalb" der eckigen Klammern regeln.
Ich sehe hier keine Notwendigkeit negative Indices zu verwenden.

Und wenn du's doch tun willst und du bereits jetzt weisst, dass du nur Elemente von -5..-1 unterbringen willst oder zum Beispiel von -10..10, dann verwende doch einfach einen statischen Array:

sp : array[-10..10] of TSprite;

Dann kann der Compiler das für dich regeln :-D.

Jep das wäre eine alternative.. ;)
Werde es mal testen.

Zurück das geht nicht.
-5 > 0 ist ein Array für die Bitmaps die ich zuweisen will.

sp[x] kann aber größer werden.. abhängig von den Icons die auf den Desktop liegen.
Werde wohl positive werte nehmen müssen.. Hmmm.

Danke gruss

[Michael II]

Nur so aus Neugierde... hast du mal Graphics32 verwendet? Oder schreibst du etwas für die fmx Welt?