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

zusammenfalten · markieren

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

markieren

Delphi-Quellcode:

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

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

logisch aber wie kann ich das trotzdem verwirklichen?

gruss

Super dumme Idee aber...

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

Zitat von a.def:

Super dumme Idee aber...

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

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

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.

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.

markieren

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:

zusammenfalten · markieren

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..
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

Was willst du eigentlich damit erreichen?

Zitat von EWeiss:

Ich möchte ein Array mit negativ werten anlegen.

Geht es Dir daraum das dass Array tatsächlich negative Indicies unterstützt - das geht nicht - oder nur um den Zugriff darauf?

Du könntest die Indicies entweder mit einer (inline) Funktion mappen oder das Array in eine Klasse / Record packen.

Also ungefähr so :

zusammenfalten · markieren

Delphi-Quellcode:

TYPE irgendwas = (Montag,Dienstag,Mittwoch,Donnerstag,Freitag,Samstag,Sonntag);

     TNegativeArray = class(TObject)
     private
      maxVal : Integer;
      fdata : array of irgendwas;

      function getData(index : Integer) : irgendwas; inline;
      procedure setData(index : Integer; aData : irgendwas); inline;
     public
      Constructor Create(aLenght : Integer);
      Destructor Destroy; override;
     property
       Data [ index : Integer ] : Irgendwas
         read getData write setData; default;
     end;

implementation

function TNegativeArray.getData(index : Integer) : irgendwas;
begin
 assert(index<=0);
 result := fData[abs(index)];
end;

procedure TNegativeArray.setData(index : Integer; aData : irgendwas);
begin
 assert(index<=0);
 fData[abs(index] := aData;
end;

Vollkommen ungetestest. Zu verwenden wäre das dann so :

markieren

Delphi-Quellcode:

var a : TNegativeArray;

begin
 a := TNegativeArray.Create(100); // Index läuft von -100 bis 0
 a[-1] := Montag;
end;

Zitat:

das geht nicht

ja in Delphi in VB6 schon so wie ich mich noch erinnern kann.

Danke. Die Idee ist nicht schlecht
Aber!

Ich kann "a" nicht als TNegativeArray definieren..
Denn "a" ist schon als a: TSprite (Record) definiert. (wobei "a" nur ein Beispiel hier verwendet wird)

Sagen wir mal ich habe ein Bitmap das sich Links auf meiner Form befindet.
Der Index für dieses Bitmap ist mit

markieren

Delphi-Quellcode:

const
  ID_LEFT = -1;
  ID_RIGHT = -2;

definiert.

Dann lade ich das Bitmap auf diese weise.

markieren

Delphi-Quellcode:

  sp[ID_LEFT].x := 0;
  sp[ID_LEFT].y := YMIN_SIZE - 25;
  sp[ID_LEFT].opacity := 128;
  sp[ID_LEFT].Bitmap := SKAERO_CreateBitmapFromFile(FolderResource + 'Left.png',
    sp[ID_LEFT].w, sp[ID_LEFT].h);

Nun das würde in VB6 funktionieren aber nicht in Delphi.
Deshalb ist meine Denkweise dahingehend wohl falsch.
Das!

markieren

Delphi-Quellcode:

const
  ID_LEFT = 1;
  ID_RIGHT = 2;

stellt kein Problem dar.
Ja ich weis das ein Array in Delphi bei 0 anfängt. (Ich wollte es aber ändern)

gruss

Zitat von EWeiss:

Danke. Die Idee ist nicht schlecht
Aber!

Ich kann "a" nicht als TNegativeArray definieren..
Denn "a" ist schon als a: TSprite (Record) definiert.

Dann schreib halt irgendeinen anderen Bezeichner hin. Da du SP verwendest schreib halt

zusammenfalten · markieren

Delphi-Quellcode:

TYPE TSprite = record
      x: Integer;
      y: Integer;
      w: Integer;
      h: Integer;
      visible: Bool;
     end;

     TNegativeArray = class(TObject)
     private
      maxVal : Integer;
      fdata : array of TSprite;

      function getData(index : Integer) : TSprite; inline;
      procedure setData(index : Integer; aData : TSprite); inline;
     public
      Constructor Create(aLenght : Integer);
      Destructor Destroy; override;
     property
       Data [ index : Integer ] : Irgendwas
         read getData write setData; default;
     end;

implementation

Constructor TNegativeArray.Create(aLenght : Integer);
begin
 inherited;
 SetLength(fdata,aLength);
end;


function TNegativeArray.getData(index : Integer) : TSprite;
begin
 assert(index<=0);
 result := fData[abs(index)];
end;

procedure TNegativeArray.setData(index : Integer; aData : TSprite);
begin
 assert(index<=0);
 fData[abs(index] := aData;
end;

und verwende das ganze so

zusammenfalten · markieren

Delphi-Quellcode:

const
  ID_LEFT = -1;
  ID_RIGHT = -2;

var sp : TNegativeArray; // Sprite Stack

begin
 sp := TNegativeArray.Create(3); // Hat Element -1, -2 _und_ 0
 sp[ID_LEFT].x := 0;
 ....
end.

cu Ha-Jö

Supi ja so könnte es gehen
Danke für deine Mühe.

werde es mal testen.

gruss