Array und negativ werte.

[EWeiss]

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

Delphi-Quellcode:

const
  ID_LEFT = -1;
  ID_RIGHT = -2;

definiert.

Dann lade ich das Bitmap auf diese weise.

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!

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