PDWORD[0] in Delphi (von C(++?))

[Alter Mann]

Hallo,

wie setze folgenden C-Code um?

Code:

...
DWORD *pFirstSectOfFat;
...
    // First FAT Sector
    pFirstSectOfFat[0] = 0x0ffffff8;  // Reserved cluster 1 media id in low byte
    pFirstSectOfFat[1] = 0x0fffffff;  // Reserved cluster 2 EOC
    pFirstSectOfFat[2] = 0x0fffffff;  // end of cluster chain for root dir
...

bei

Delphi-Quellcode:

...
var
   pFirstSecFAT    : PDWORD;
...
        pFirstSecFAT^[0]            := $0ffffff8;
        pFirstSecFAT^[1]            := $0fffffff;
        pFirstSecFAT^[2]            := $0fffffff;
...

mault der Compiler und sagt Array-Typ erforderlich.

Danke für die Mühe

[daywalker9]

Die Exakte Übersetzung wäre wohl dieses hier:

Delphi-Quellcode:

var
   pFirstSecFAT : PDWORD;
begin
  {$POINTERMATH ON}
  new(pFirstSecFAT);
  pFirstSecFAT[0] := $0ffffff8;
  pFirstSecFAT[1] := $0fffffff;
  pFirstSecFAT[2] := $0fffffff;
  {$POINTERMATH OFF}

[Namenloser]

In älteren Versionen, wo es kein Pointermath gibt, so:

Delphi-Quellcode:

type
  PDWORDArray = ^TDWORDArray;
  TDWORDArray = array [0..0] of DWORD;
var
   pFirstSecFAT : PDWORDArray;
begin
  new(pFirstSecFAT);
  pFirstSecFAT[0] := $0ffffff8;
  pFirstSecFAT[1] := $0fffffff;
  pFirstSecFAT[2] := $0fffffff;

Was mir etwas seltsam vorkommt, ist dass nur für das erste Element Speicher reserviert wird, wenn ich das richtig sehe.

[Panthrax]

System.SysUtils.pas(165):

Delphi-Quellcode:

{ General arrays }

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

  PWordArray = ^TWordArray;
  TWordArray = array[0..16383] of Word;

In Anlehnung daran würde ich das Feld mit den Grenzen 0..8191 deklarieren:

Delphi-Quellcode:

type
  PDWordArray = ^TDWordArray;
  TDWordArray = array [0..8191] of DWord;

[himitsu]

array[0..0] of ist in Delphi ein Sonderfall.
Das entspricht einem "offenen" statischem Array und für die Indizierung wird niemals ein Bereichsprüfungscode implementiert, selbst wenn in den Projectoptionen/Compilerschaltern die entsprechende Funktion aktiviert sein sollte.

[edit]array[0..0] of nutzen viele Delphianer als Sonderfall, für ein offenes Array (nur bei Pointern).

Es entspricht also quasi eigentlich einem [0..unbegrenzt] .

[Panthrax]

Ich habe versucht eine Quelle zu finden. Wo steht, dass das ein Sonderfall ist, und dass für Felder mit den Grenzen 0..0 nie eine Bereichsprüfung durchgeführt wird?

[himitsu]

Mir isses so, als stand malvor vielen Jahren irgendwo in der OH oder doch nur in irgendeinem Tutorial?

Nja, zumindestens ist es eine sehr einfache Deklaration,

denn die andere Variante ist nicht wirklich schön.

Delphi-Quellcode:

type 
  TMyArray = array[0..(High(NativeInt) - SizeOf(NativeUInt) * 2) div SizeOf(TIrgendwas) - 1] of TIrgendwas;
  PMyArray = ^TMyArray;

  TMyArray2 = array[0..IrgendeinWertWoManDenktErKönntePassenUndDerNichtZuGroßIst{bei 32 Bit unter 2 GB, inkl Verwaltungsdaten}] of TIrgendwas;
  PMyArray2 = ^TMyArray2;

[Alter Mann]

Danke Leute,

das
{$POINTERMATH ON} hat geholfen. Nun muss nur noch der Rest hinhauen