Аналоги Union в PascalABC.NET?

Question

[Mors Clamor]

Здравствуйте! Необходимо описать структуру

TIMAGE_SECTION_HEADER

На СИ это выглядит так

typedef struct _IMAGE_SECTION_HEADER {
  BYTE  Name[IMAGE_SIZEOF_SHORT_NAME];
  union {
    DWORD PhysicalAddress;
    DWORD VirtualSize;
  } Misc;
  DWORD VirtualAddress;
  DWORD SizeOfRawData;
  DWORD PointerToRawData;
  DWORD PointerToRelocations;
  DWORD PointerToLinenumbers;
  WORD  NumberOfRelocations;
  WORD  NumberOfLinenumbers;
  DWORD Characteristics;
} IMAGE_SECTION_HEADER, *PIMAGE_SECTION_HEADER;

А как это реализовать на Pascal.net, чтобы всё правильно прочиталось в переменные? Заранее спасибо.

Answer 1

[Hemul GM]

IMAGE_SECTION_HEADER = packed record
    Name     : packed array [0..IMAGE_SIZEOF_SHORT_NAME-1] of Char;
    PhysicalAddress : DWORD; // or VirtualSize (union);
    VirtualAddress  : DWORD;
    SizeOfRawData   : DWORD;
    PointerToRawData : DWORD;
    PointerToRelocations : DWORD;
    PointerToLinenumbers : DWORD;
    NumberOfRelocations : WORD;
    NumberOfLinenumbers : WORD;
    Characteristics : DWORD;
  end;
  PIMAGE_SECTION_HEADER = ^IMAGE_SECTION_HEADER;

Comments

[Mors Clamor]

Здравствуйте, спасибо за ответ) Можно на пальцах что такое union, как оно работает? Сколько читал так и не понял

[Hemul GM]

66demon666, одна переменная несколькими названиями. Чисто для читабельности. Т.е. место в структуре выделено только под одну переменную DWORD, но обратиться к данным можно по разным названиям.

[Mors Clamor]

Hemul GM, Понял, спасибо