how to translate typedef union to delphi?

Question

1)

typedef union __rfun_gop_event_info
{
 unsigned int evt;
 struct
 {
  unsigned int reserved1:1;
  unsigned int reserved0:1;
  unsigned int f30:1;
  unsigned int f29:1;
 }frame;
}rfun_gop_event_info;

2)

typedef union __rfun_gop_event_info
{
 unsigned int evt;
 struct
 {
  unsigned int reserved1:1;
  unsigned int reserved0:1;
  unsigned int f30:1;
  unsigned int f29:1;
 }frame;
}rfun_gop_event_info;

Thank you.

check this question - http://stackoverflow.com/questions/282019/how-to-simulate-bit-fields-in-delphi-records — Vladimir, Jan 10 '11 at 12:13
the obly hassle is - Object Pascal requires to put variant parts at the end of structure — Free Consulting, Jan 10 '11 at 15:05
Was it your intention to post the same block of code twice? Perhaps the second one was supposed to be different. — Rob Kennedy, Jan 10 '11 at 18:58

score 3 · Answer 1 · answered Jan 10 '11 at 12:26

Have a look at this article at Delphi Corner that explains variant records which is exactly what you need:

DelphiCorner: Variant Records: The equivalent to the C-union structure

Excerpt containing example:

type
 TPerson = record
   FirstName, LastName: string[40];
   BirthDate: TDate;
   case Citizen: Boolean of
     True: (BirthPlace: string[40]);
     False: (Country: string[20];
       EntryPort: string[20];
       EntryDate: TDate;
       ExitDate: TDate);
 end;

The bit fields are the real problem here – David Heffernan Oct 08 '14 at 21:47 — David Heffernan, Oct 08 '14 at 21:47

how to translate typedef union to delphi?

1 Answers1