Array of Single/Integer <> packed record mit Single/Integer ?

[hoika]

Hallo #,

ist eine Array Of Single eigentlich packed oder nicht?
Ein Single hat ja 32 Bit, müsste also aus Performance-Gründen nicht ausgerichtet werden, oder ?

Danke

Heiko

[himitsu]

Im Grunde ist es schon packed, da nur ein Typ für die Ausrichtung verwendet wird.

Falls sich das nicht geändert hat, dann gibt es nur die Möglichkeit die Maximale-Ausrichtung zu begrenzen und nicht eine Minimale vorzugeben, womit hier immer mit der Größe des einen Typ ausgerichtet wird.

Packed Arrays ändern sich nur, wenn man da einen Packed Record reinlegt und sich dort durch das Packed die Größe änderte.

[Uwe Raabe]

Ein array[0..9] of Single hat sowohl unter 32-Bit-Windows als auch unter 64-Bit-Windows eine Größe von 40 Byte. Die Option Record-Felder ausrichten ($A) bezieht sich, wie der Name schon sagt, auf Record-Felder und nicht auf Arrays.

Übrigens hat ein array[0..9] of Byte auch ohne packed nur eine Größe von 10 Byte.

Alle Angaben beziehen sich auf XE5.

[himitsu]

Ich hätte gedacht, daß Arrays Array-Felder auch ausgerichtet werden, denn wozu soll denn sonst das packed sinnvoll sein, welches man da angeben kann.

Aber da hab ich mich wohl getäuscht.

Delphi-Quellcode:

type
  TMyRecord = record
    I: Integer;
    B: Byte;
  end;
  TMyPackedRecord = packed record
    I: Integer;
    B: Byte;
  end;

var
  MyRecord:                                        TMyRecord;
  MyRecordArray:                    array[0..9] of TMyRecord;
  MyRecordPackedArray:       packed array[0..9] of TMyRecord;
  MyPackedRecord:                                  TMyPackedRecord;
  MyPackedRecordArray:              array[0..9] of TMyPackedRecord;
  MyPackedRecordPackedArray: packed array[0..9] of TMyPackedRecord;

begin
  WriteLn('SizeOf(MyRecord)                  = ', SizeOf(MyRecord));
  WriteLn('SizeOf(MyRecordArray)             = ', SizeOf(MyRecordArray));
  WriteLn('SizeOf(MyRecordPackedArray)       = ', SizeOf(MyRecordPackedArray));
  WriteLn('SizeOf(MyPackedRecord)            = ', SizeOf(MyPackedRecord));
  WriteLn('SizeOf(MyPackedRecordArray)       = ', SizeOf(MyPackedRecordArray));
  WriteLn('SizeOf(MyPackedRecordPackedArray) = ', SizeOf(MyPackedRecordPackedArray));
  ReadLn;

[edit]
Arrays werden ausgerichtet, also zumindestens ihr Startpunkt.

[Uwe Raabe]

Are there any difference between array and packed array in Delphi?

[hoika]

Hallo,

danke an alle.
Hoffentlich stimmt es auch

Ich habe hier eine c++-Dll, die erwartet als Übergabe ein Array of float (Delphi: Single),
dass die Dll befüllen will.

void bla(float *const pValue, int Num)

(Num ist die Größe von pValue)


Heiko

[himitsu]

Bei Arrays aus "einfachen" Typen, mit 1, 2 oder 4 Byte gibt es eigentlich keinerlei Probleme.
Und 8 Byte geht auch, egal ob die Austrichtung 4 oder 8 Byte ist. {$ALIGN}

Da liegt immer alles direkt hintereinander.

Bei Records aus gemischten Typen und bei Typen die kein Vielfaches von 2 sind, da muß man schon etwas aufpassen.