Zeiger auf array

[Martin K]

Hi, hab mal wieder ein Problem:

Ich habe mir zwei statische Arrays gebastelt und einen Pointer, der auf eines der beiden Arrays zeigen soll.

Delphi-Quellcode:

var
  Palette4: array[0..15]  of TColor;
  Palette8: array[0..255] of TColor;
  Palette:  PByteArray;

Wahrscheinlich habe ich meinen Pointer falsch deklariert oder so, aber auf jeden Fall kommt das bei raus:

Ich lasse also meinen Pointer auf eines der beiden Arrays zeigen:

Delphi-Quellcode:

  Palette := @Palette4;

Bei High(Palette) müsste dann (zumindest nach meiner Logik) 15 raus kommen, ich erhalte aber 32768.

Woran kann das liegen?
Wie muss ich meine Deklaration ggf. ändern?
:gruebel:

[Hawkeye219]

Hallo Martin,

so sieht die Deklaration von PByteArray in der Unit SysUtils aus:

Delphi-Quellcode:

PByteArray = ^TByteArray;
TByteArray = array[0..32767] of Byte;

High(Palette^) muß somit den Wert 32767 liefern.

Die Obergrenzen der Arrays kannst du ja über High(Palette4) bzw. High(Palette8) abfragen, mit einer gemeinsamen Typvereinbarung wirst du wohl scheitern.
Vielleicht hilft dir eine Prozedur mit einem "open array"-Parameter:

Delphi-Quellcode:

procedure MachWas (const aColors: array of TColor);
begin
  ShowMessage (IntToStr(High(aColors)));
end;

MachWas (Palette4);  // zeigt "15" an
MachWas (Palette8);  // zeigt "255" an

Gruß Hawkeye

[Martin K]

Hm...

Gibt es keinen allgemeinen Pointer, mit dem man auf ein Array zeigen kann?

Also ich würde gerne überall im Code einfach nur Palette:= usw. schreiben.
Und je nachdem, auf welches der beiden arrays dann der Pointer zeigt (lege ich ganz am Anfang fest, z.B. bei FormCreate), dieses array soll halt auch verwendet werden...

Zitat:

Zitat von Hawkeye219

High(Palette^) muß somit den Wert 32767

Ja, stimmt so wars auch.
Hatte den Code nur nicht mehr ganz genau im Kopf...

[nat]

was spricht gegen dynamische arrays? damit würde es gehen!

Delphi-Quellcode:

type
  TColorArray = array of TColor;
  PColorArray = ^TColorArray;

var
  Palette4: TColorArray;
  Palette8: TColorArray;
  Palette: PColorArray;

procedure TForm1.FormCreate(Sender: TObject);
begin
  setlength(Palette4, 16);
  setlength(Palette8, 256);

  Palette := @Palette4;
end;

[Martin K]

Ach, damit geht das?

Hm...
Aber warum geht das mit dem Zeiger auf ein Array nur bei dynamischen und nicht bei statischen?
...das ist doch unlogisch!

Naja gut, dann nehm ich eben zwei dynamische Arrays.
Danke, übrigens!!!

Hier geht es halt um Farbpaletten (4 Bit und 8 Bit) und da die Anzahl der Farben in der Palette konstant ist (16 bzw. 256 Farben), wären hier statische Arrays irgendwie logischer...

Aber egal...

[himitsu]

Zitat:

Zitat von Martin K

Aber warum geht das mit dem Zeiger auf ein Array nur bei dynamischen und nicht bei statischen?
...das ist doch unlogisch!

Also einen Zeiger auf ein Array kannst du bei dynamischen und statischen Arrays anlegen.

Du mußt nur beachten, das in dynamisches Array auch eigentlich nur ein Zeiger auf seine Daten ist.

[mkinzler]

Zitat:

Du mußt nur beachten, das in dynamisches Array auch eigentlich nur ein Zeiger auf seine Daten ist.

Ein "normaler" array m.W. auch

[himitsu]

Zitat:

Zitat von mkinzler

Ein "normaler" array m.W. auch

Wenn "normal" bei dir statisch ( also Array[x..y] ) bedeutet ... NEIN.

Ein Array[0..3] of Byte ist zozusagen ein Record mit 4 Bytes drin,

wärend ein Array of Byte ein Pointer auf eine Array-Struktur ist, welche in sich wiederum ein Record mit Integern für ElementCount (Length) und Referenzzähler, mit einem dahinterliegendem Record der nötigen Bytes.

Delphi-Quellcode:

Var D: Array of Word
  S: Array[0..9] of Word;

SizeOf(D) = 4 (der Pointer ist ja ein Integer, also 4 Byte)
SizeOf(S) = 20 (10 * Word, also 20 Byte)

[Martin K]

Zitat:

Zitat von himitsu

Zitat:

Zitat von Martin K

Aber warum geht das mit dem Zeiger auf ein Array nur bei dynamischen und nicht bei statischen?
...das ist doch unlogisch!

Also einen Zeiger auf ein Array kannst du bei dynamischen und statischen Arrays anlegen.

Du mußt nur beachten, das in dynamisches Array auch eigentlich nur ein Zeiger auf seine Daten ist.

Ja und wie kann ich das realisieren:
Ein Zeiger auf ein statisches Array ?
:gruebel:

//Edit:
für etwas Quellcode wäre ich dankbar...

[Dax]

Zitat:

Zitat von Martin K

Ja und wie kann ich das realisieren:
Ein Zeiger auf ein statisches Array ?

Hast du in deinem ersten Post doch schon vorgemacht^^