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]

Delphi-Quellcode:

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]

Delphi-Quellcode:

array[0..0] of

nutzen viele Delphianer als Sonderfall, für ein offenes Array (nur bei Pointern).

Es entspricht also quasi eigentlich einem

Delphi-Quellcode:

[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 :gruebel: 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

Delphi-Quellcode:

{$POINTERMATH ON}

hat geholfen. Nun muss nur noch der Rest hinhauen:wink: